Commits

Bryan O'Sullivan committed 185c168

More little tweaks - switch the tiny example to Parsec 3.

Comments (0)

Files changed (2)

benchmarks/Makefile

 	bunzip2 -k $<
 
 clean:
-	-rm -f *.o *.hi
+	-rm -f *.o *.hi tiny

benchmarks/Tiny.hs

-import Control.Monad
-import System.Environment
+import Control.Applicative ((<|>))
+import Control.Monad (forM_)
+import System.Environment (getArgs)
 import qualified Data.Attoparsec.Char8 as A
-import qualified Text.ParserCombinators.Parsec as P
 import qualified Data.ByteString.Char8 as B
-import Control.Applicative
+import qualified Text.Parsec as P
+import qualified Text.Parsec.ByteString as P
 
 mainA = do
   args <- getArgs
       Left err -> print err
       Right xs -> print (length xs)
 
-main = mainA
+main = mainP