From: Mart Lubbers <mart@martlubbers.net>
Date: Sat, 28 Jan 2017 13:59:36 +0000 (+0100)
Subject: simplify expression
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=5ffe54378cb4b91ee2a5717d57c1bf4ba4ca563e;p=mTask.git

simplify expression
---

diff --git a/miTask.icl b/miTask.icl
index 18c78c8..407e930 100644
--- a/miTask.icl
+++ b/miTask.icl
@@ -32,7 +32,7 @@ Start world = startEngine mTaskTask world
 
 bc :: Main (ByteCode () Stmt)
 bc = sds \x=1 In sds \pinnetje=1 In {main =
-		IF (digitalRead D3 ==. lit True) (
+		IF (digitalRead D3) (
 			x =. x +. lit 1 :.
 			pub x
 		) (