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

Merge pull request #11 from mrkkrp/master

Browse Source 
Fix a typo
This commit is contained in:
Chris Done 2016-01-17 20:31:14 +00:00
commit 9fee9e42da
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Path.hs
View File

@ -252,7 +252,7 @@ fromRelFile = toFilePath
(</>) (Path a) (Path b) = Path (a ++ b) (</>) (Path a) (Path b) = Path (a ++ b)
-- | Strip directory from path, making it relative to that directory. -- | Strip directory from path, making it relative to that directory.
-- Returns 'Nothing' if directory is not a parent of the path. -- Throws 'Couldn'tStripPrefixDir' if directory is not a parent of the path.
-- --
-- The following properties hold: -- The following properties hold:
-- --
@ -266,8 +266,6 @@ fromRelFile = toFilePath
-- --
-- In other words the bases must match. -- In other words the bases must match.
-- --
-- Throws: 'Couldn'tStripPrefixDir'
--
stripDir :: MonadThrow m stripDir :: MonadThrow m
=> Path b Dir -> Path b t -> m (Path Rel t) => Path b Dir -> Path b t -> m (Path Rel t)
stripDir (Path p) (Path l) = stripDir (Path p) (Path l) =