Fix a warning

This commit is contained in:
Michael Snoyman 2012-02-16 06:58:01 +02:00
parent 16fe5330c0
commit a98c73a4c9

View File

@ -140,9 +140,9 @@ determineHamletDeps x = do
<|> (A.string "$(Settings.widgetFile " >> return Hamlet) <|> (A.string "$(Settings.widgetFile " >> return Hamlet)
<|> (A.string "$(parseRoutesFile " >> return Verbatim) <|> (A.string "$(parseRoutesFile " >> return Verbatim)
<|> (A.string "$(persistFile " >> return Verbatim) <|> (A.string "$(persistFile " >> return Verbatim)
<|> (do <|> (
A.string "$(persistFileWith " A.string "$(persistFileWith " >>
A.many1 $ A.satisfy (/= '"') A.many1 (A.satisfy (/= '"')) >>
return Verbatim) return Verbatim)
<|> (do <|> (do
_ <- A.string "\nmkMessage \"" _ <- A.string "\nmkMessage \""