Fix a typo

This commit is contained in:
mrkkrp 2016-01-16 17:21:19 +06:00
parent 9af2a76b2e
commit 36cc9af231

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) =