From ae4a3dbe9c26f9d5f77b177766f915359615a085 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 29 Nov 2011 08:09:53 +0200 Subject: [PATCH] attoparsec 0.10 fix --- yesod/Build.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod/Build.hs b/yesod/Build.hs index 51ff311c..3527bf8d 100644 --- a/yesod/Build.hs +++ b/yesod/Build.hs @@ -10,7 +10,7 @@ module Build -- FIXME there's a bug when getFileStatus applies to a file -- temporary deleted (e.g., Vim saving a file) -import Control.Applicative ((<|>)) +import Control.Applicative ((<|>), many) import Control.Exception (SomeException, try) import Control.Monad (when, filterM, forM, forM_) @@ -120,7 +120,7 @@ data TempType = Hamlet | Verbatim | Messages FilePath | StaticFiles FilePath determineHamletDeps :: FilePath -> IO [FilePath] determineHamletDeps x = do y <- TIO.readFile x -- FIXME catch IO exceptions - let z = A.parse (A.many $ (parser <|> (A.anyChar >> return Nothing))) y + let z = A.parse (many $ (parser <|> (A.anyChar >> return Nothing))) y case z of A.Fail{} -> return [] A.Done _ r -> mapM go r >>= filterM doesFileExist . concat