From ea49556395d854401344a622ea91c8a948dfc8b8 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 2 Nov 2009 16:31:32 +0000 Subject: [PATCH] update testsuite/runtime/parser/Parse.hs --- testsuite/runtime/parser/Parse.hs | 6 +++--- 1 file 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 []