Fix stupid bugs...

This commit is contained in:
Michael Snoyman 2012-08-17 07:35:01 +03:00
parent 83b10c4959
commit 79fcfe0707

View File

@ -166,7 +166,7 @@ determineDeps x = do
_ <- A.string "\" \"" _ <- A.string "\" \""
_y <- A.many1 $ A.satisfy (/= '"') _y <- A.many1 $ A.satisfy (/= '"')
_ <- A.string "\"" _ <- A.string "\""
return $ Messages $ concat x' return $ Messages x')
case ty of case ty of
Messages{} -> return $ Just (ty, "") Messages{} -> return $ Just (ty, "")
StaticFiles{} -> return $ Just (ty, "") StaticFiles{} -> return $ Just (ty, "")