Fix ambiguity on fold with enumerator-0.4.5, use strict foldl

markwright · Jan 20, 2011 · a3c184f · a3c184f
1 parent e550bb3
commit a3c184f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/utils/antlrcmkenums/Main.hs b/utils/antlrcmkenums/Main.hs
@@ -33,7 +33,7 @@ tokenLine (n, b) =
 
 tokenLines :: Handle -> Int -> [B8.ByteString] -> IO Int
 tokenLines h acc bytes =
-  let (n, tl) = foldl sumLines (acc, B8.empty) (zip [acc..] bytes)
+  let (n, tl) = L.foldl' sumLines (acc, B8.empty) (zip [acc..] bytes)
       sumLines :: (Int, B8.ByteString) -> (Int, B8.ByteString) -> (Int, B8.ByteString)
       sumLines (m, s) (n, t) =
         (x, u)