Skip to content
Browse files

Fix mishap in the model compilation.

  • Loading branch information...
1 parent f8f6612 commit fb1907eb20c3ff0754843337e94f329bf8fde753 @HeinrichApfelmus committed
Showing with 3 additions and 2 deletions.
  1. +3 −2 reactive-banana/src/Reactive/Banana/Internal/CompileModel.hs
View
5 reactive-banana/src/Reactive/Banana/Internal/CompileModel.hs
@@ -41,8 +41,9 @@ compileWithGlobalInput f = do
filterJust = map fromJust . filter isJust
fromInputValues :: InputChannel a -> [InputValue] -> Maybe a
- fromInputValues i xs = listToMaybe [y | x <- xs, let Just y = fromValue i x]
-
+ fromInputValues i xs = listToMaybe [y | x <- xs, Just y <- [fromValue i x]]
+
+
-- step of the automaton
step values outputs = do
writeIORef ref values -- write new input value

0 comments on commit fb1907e

Please sign in to comment.
Something went wrong with that request. Please try again.