diff --git a/src/Path.hs b/src/Path.hs index 191e915..4f24494 100644 --- a/src/Path.hs +++ b/src/Path.hs @@ -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) =