Fix tests, this time, this time for sure.

This commit is contained in:
Daniel Gröber
2015-09-08 06:42:32 +02:00
parent 7ae22a9226
commit dbf215a35b
3 changed files with 5 additions and 6 deletions

View File

@@ -216,6 +216,5 @@ findFilesWith' f (d:ds) fileName = do
makeAbsolute' :: FilePath -> IO FilePath
makeAbsolute' = (normalise <$>) . absolutize
where absolutize path -- avoid the call to `getCurrentDirectory` if we can
| isRelative path = (</> path) . addTrailingPathSeparator <$>
getCurrentDirectory
| isRelative path = (</> path) <$> getCurrentDirectory
| otherwise = return path