diff options
Diffstat (limited to 'testsuite/runtime/parser')
| -rw-r--r-- | testsuite/runtime/parser/Parse.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/runtime/parser/Parse.hs b/testsuite/runtime/parser/Parse.hs index 71697cbb9..6d26e3a08 100644 --- a/testsuite/runtime/parser/Parse.hs +++ b/testsuite/runtime/parser/Parse.hs @@ -35,9 +35,9 @@ doTest pgf lang cat ss t = do doParse st t1 ts [] = return (Just (st,reverse ts))
doParse st t1 ts (tk:tks) = do
case nextState st tk of
- Nothing -> return Nothing
- Just st -> do t2 <- getCPUTime
- doParse st t1 ((t2-t1):ts) tks
+ Left _ -> return Nothing
+ Right st -> do t2 <- getCPUTime
+ doParse st t1 ((t2-t1):ts) tks
accum [] ss = ss
accum (t:ts) [] = (t,1) : accum ts []
|