summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Grasp/Interpreter.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs
index 56ead7b..03a2978 100644
--- a/src/Grasp/Interpreter.hs
+++ b/src/Grasp/Interpreter.hs
@@ -66,7 +66,7 @@ execute g ([]:ips) out = execute g ips out
execute g (cur:rest) out =
let (node,instruction) = head cur
condL = targetLabels g (getByLabel "cond" (Graph.out g node))
- goAhead = all (\x -> isJust (readMaybe x >>= return . (/= 0.0))) condL
+ goAhead = all (\x -> isFloat x && (read :: String -> Float) x /= 0.0) condL
in case (goAhead, instruction) of
(False,_) -> do