msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

update testsuite/runtime/parser/Parse.hs

Browse Source
This commit is contained in:
krasimir
2009-11-02 16:31:32 +00:00
parent 78355d63ac
commit ea49556395
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
testsuite/runtime/parser/Parse.hs
View File

@@ -35,9 +35,9 @@ doTest pgf lang cat ss t = do
doParse st t1 ts [] = return (Just (st,reverse ts)) doParse st t1 ts [] = return (Just (st,reverse ts))
doParse st t1 ts (tk:tks) = do doParse st t1 ts (tk:tks) = do
case nextState st tk of case nextState st tk of
Nothing -> return Nothing Left _ -> return Nothing
Just st -> do t2 <- getCPUTime Right st -> do t2 <- getCPUTime
doParse st t1 ((t2-t1):ts) tks doParse st t1 ((t2-t1):ts) tks
accum [] ss = ss accum [] ss = ss
accum (t:ts) [] = (t,1) : accum ts [] accum (t:ts) [] = (t,1) : accum ts []