From bbf9f9092bb1810d736ed596c126499f17c9e0ac Mon Sep 17 00:00:00 2001 From: Luite Stegeman Date: Tue, 6 Sep 2011 09:56:17 +0200 Subject: [PATCH] fix merge typo --- yesod/Build.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yesod/Build.hs b/yesod/Build.hs index cee68401..309251b1 100644 --- a/yesod/Build.hs +++ b/yesod/Build.hs @@ -88,9 +88,9 @@ findHaskellFiles path = do contents <- getDirectoryContents path fmap concat $ mapM go contents where - go ('.':_) = return [] - go ('c':"abal-dev" = return [] - go ('d':"ist") = return [] + go ('.':_) = return [] + go ('c':"abal-dev") = return [] + go ('d':"ist") = return [] go x = do let y = path x d <- doesDirectoryExist y