From 5ffe54378cb4b91ee2a5717d57c1bf4ba4ca563e Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Sat, 28 Jan 2017 14:59:36 +0100
Subject: [PATCH] simplify expression

---
 miTask.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 		) (
-- 
2.20.1