ignore lower case directories

yesod/Build.hs

@@ -28,6 +28,8 @@ import           System.Directory
 import           System.FilePath (replaceExtension, (</>))
 import           System.PosixCompat.Files (getFileStatus, setFileTimes,
                                              accessTime, modificationTime)
+import Data.Char (isUpper)
+
 
 touch :: IO ()
 touch = touchDeps id updateFileTime =<< fmap snd (getDeps [])
@@ -107,16 +109,20 @@ findHaskellFiles path = do
     fmap concat $ mapM go contents
   where
     go ('.':_)          = return []
-    go ('c':"abal-dev") = return []
+    go filename = do
-    go ('d':"ist")      = return []
+        d <- doesDirectoryExist full
-    go x = do
+        if not d
-        let y = path </> x
+          then return []
-        d <- doesDirectoryExist y
+          else if isHaskellDir
-        if d
+                 then findHaskellFiles full
-            then findHaskellFiles y
+                 else if isHaskellFile
-            else if ".hs" `isSuffixOf` x || ".lhs" `isSuffixOf` x
+                        then return [full]
-                    then return [y]
+                        else return []
-                    else return []
+      where
+        -- this could fail on unicode
+        isHaskellDir = isUpper (head filename)
+        isHaskellFile = ".hs" `isSuffixOf` filename || ".lhs" `isSuffixOf` filename
+        full = path </> filename
 
 data TempType = Verbatim | Messages FilePath | StaticFiles FilePath
 #if __GLASGOW_HASKELL__ < 704