fix merge typo

This commit is contained in:
Luite Stegeman 2011-09-06 09:56:17 +02:00
parent 1f8d753300
commit bbf9f9092b

View File

@ -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