Commit c833d64a authored by byorgey's avatar byorgey
Browse files

Merge pull request #1161 from dagit/patch-1

Fix path (mis)handling when scanning for modules (fixes #1160)
parents 3f721272 35ee2c69
......@@ -98,7 +98,7 @@ scanForModulesIn projectRoot srcRoot = scan srcRoot []
scanRecursive parent hierarchy entry
| isUpper (head entry) = scan (parent </> entry) (entry : hierarchy)
| isLower (head entry) && not (ignoreDir entry) =
scanForModulesIn projectRoot $ foldl (</>) srcRoot (entry : hierarchy)
scanForModulesIn projectRoot $ foldl (</>) srcRoot (reverse (entry : hierarchy))
| otherwise = return []
ignoreDir ('.':_) = True
ignoreDir dir = dir `elem` ["dist", "_darcs"]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment