haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix build warnings

Browse Source
This commit is contained in:
Greg Weber 2011-09-01 08:28:44 -07:00
parent 3f78df0c12
commit 32c018f36d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/Build.hs
View File

@ -75,8 +75,8 @@ findHaskellFiles path = do
contents <- getDirectoryContents path contents <- getDirectoryContents path
fmap concat $ mapM go contents fmap concat $ mapM go contents
where where
go ('.':_) = return [] go ('.':_) = return []
go "dist" = return [] go ('d':"ist") = return []
go x = do go x = do
let y = path ++ '/' : x let y = path ++ '/' : x
d <- doesDirectoryExist y d <- doesDirectoryExist y
@ -141,7 +141,7 @@ getFolderContents :: FilePath -> IO [FilePath]
getFolderContents fp = do getFolderContents fp = do
cs <- getDirectoryContents fp cs <- getDirectoryContents fp
let notHidden ('.':_) = False let notHidden ('.':_) = False
notHidden "tmp" = False notHidden ('t':"mp") = False
notHidden _ = True notHidden _ = True
fmap concat $ forM (filter notHidden cs) $ \c -> do fmap concat $ forM (filter notHidden cs) $ \c -> do
let f = fp ++ '/' : c let f = fp ++ '/' : c