Fix a warning

2012-02-16 06:58:01 +02:00 · 2012-02-16 06:58:01 +02:00 · a98c73a4c9
commit a98c73a4c9
parent 16fe5330c0
1 changed files with 3 additions and 3 deletions
--- a/yesod/Build.hs
+++ b/yesod/Build.hs
@ -140,9 +140,9 @@ determineHamletDeps x = do
           <|> (A.string "$(Settings.widgetFile " >> return Hamlet)
           <|> (A.string "$(parseRoutesFile " >> return Verbatim)
           <|> (A.string "$(persistFile " >> return Verbatim)
-           <|> (do 
-                   A.string "$(persistFileWith " 
-                   A.many1 $ A.satisfy (/= '"')
+           <|> (
+                   A.string "$(persistFileWith " >>
+                   A.many1 (A.satisfy (/= '"')) >>
                   return Verbatim)
           <|> (do
                    _ <- A.string "\nmkMessage \""