thermostat :: Main (View () Stmt)
thermostat = {main =
- IF (analogRead A0 >. 50)
+ IF (analogRead A0 >. lit 50)
( digitalWrite D0 (lit True) )
( digitalWrite D0 (lit False) )
}
thermostat` :: Main (View () Stmt)
thermostat` = let
a0 = aIO A0
- d0 = dIO D0 in {main = IF (a0 >. 50) (d0 =. lit True) (d0 =. lit False) }
+ d0 = dIO D0 in {main = IF (a0 >. lit 50) (d0 =. lit True) (d0 =. lit False) }
\end{lstlisting}