GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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 (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 []