Merge pull request #277 from zoominsoftware/fix/100x-slowdown-parsec-…

…3.1.15

Fix 100⨯ slowdown on parsec-3.1.15

Text/Hamlet/Parse.hs

@@ -79,7 +79,7 @@ data Line = LineForall Deref Binding
 
 parseLines :: HamletSettings -> String -> Result (Maybe NewlineStyle, HamletSettings, [(Int, Line)])
 parseLines set s =
-    case parse parser s s of
+    case parse parser "[Hamlet input]" s of
         Left e -> Error $ show e
         Right x -> Ok x
   where