Permalink
Browse files

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

  • Loading branch information...
1 parent b6cc096 commit 11b821169144b3a1f1fa4661fbb7683fbfb10c6d @bos committed Mar 4, 2010
Showing with 7 additions and 6 deletions.
  1. +1 −1 benchmarks/Makefile
  2. +6 −5 benchmarks/Tiny.hs
View
@@ -7,4 +7,4 @@ tiny: Tiny.hs
bunzip2 -k $<
clean:
- -rm -f *.o *.hi
+ -rm -f *.o *.hi tiny
View
@@ -1,9 +1,10 @@
-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
@@ -22,4 +23,4 @@ mainP = do
Left err -> print err
Right xs -> print (length xs)
-main = mainA
+main = mainP

0 comments on commit 11b8211

Please sign in to comment.