hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Fix syntax error

Browse Source
This commit is contained in:
Chris Done 2015-06-17 18:45:34 +02:00
parent 30890ad3c2
commit df1e191517
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Path.hs
View File

@ -83,7 +83,7 @@ parseAbsDir filepath =
if FilePath.isAbsolute filepath && if FilePath.isAbsolute filepath &&
not (null (normalizeDir filepath)) && not (null (normalizeDir filepath)) &&
not (isPrefixOf "~/" filepath) && not (isPrefixOf "~/" filepath) &&
not (hasParentDir filepath) && not (hasParentDir filepath)
then return (Path (normalizeDir filepath)) then return (Path (normalizeDir filepath))
else throwM (InvalidAbsDir filepath) else throwM (InvalidAbsDir filepath)