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

fix merge typo

Browse Source
This commit is contained in:
Luite Stegeman 2011-09-06 09:56:17 +02:00
parent 1f8d753300
commit bbf9f9092b
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

@ -88,9 +88,9 @@ 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 ('c':"abal-dev" = return [] go ('c':"abal-dev") = return []
go ('d':"ist") = 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