From a98c73a4c9264a0620cd69c38ad0bd06189f793e Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 16 Feb 2012 06:58:01 +0200
Subject: [PATCH] Fix a warning

---
 yesod/Build.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod/Build.hs b/yesod/Build.hs
index 097dab53..3b5f4b13 100644
--- 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 \""