Merge pull request #11 from mrkkrp/master

Fix a typo
This commit is contained in:
Chris Done 2016-01-17 20:31:14 +00:00
commit 9fee9e42da

View File

@ -252,7 +252,7 @@ fromRelFile = toFilePath
(</>) (Path a) (Path b) = Path (a ++ b)
-- | 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:
--
@ -266,8 +266,6 @@ fromRelFile = toFilePath
--
-- In other words the bases must match.
--
-- Throws: 'Couldn'tStripPrefixDir'
--
stripDir :: MonadThrow m
=> Path b Dir -> Path b t -> m (Path Rel t)
stripDir (Path p) (Path l) =