From 36cc9af2310904ac38b2b3a40e4b4edcfe988b5b Mon Sep 17 00:00:00 2001
From: mrkkrp <markkarpov@opmbx.org>
Date: Sat, 16 Jan 2016 17:21:19 +0600
Subject: [PATCH] Fix a typo

---
 src/Path.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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