diff options
| author | krasimir <krasimir@chalmers.se> | 2009-11-02 16:31:32 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-11-02 16:31:32 +0000 |
| commit | ea49556395d854401344a622ea91c8a948dfc8b8 (patch) | |
| tree | 1818f57b1dda4e93431153f00d2f5f586e00c5e2 | |
| parent | 78355d63ac1d18793a38857083463ebd15ab4f86 (diff) | |
update testsuite/runtime/parser/Parse.hs
| -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 []
|