Restrict parentAbs return to Dir

2015-05-11 08:58:34 +02:00
parent cb5545f2fe
commit c0e93d2167
2 changed files with 2 additions and 2 deletions
--- a/src/Path.hs
+++ b/src/Path.hs
@@ -240,7 +240,7 @@ isParentOf p l =
 --
 -- @parentAbs (parentAbs \"\/\") = \"\/\"@
 --
-parentAbs :: Path Abs t -> Path Abs t
+parentAbs :: Path Abs t -> Path Abs Dir
 parentAbs (Path fp) =
  Path (normalizeDir (FilePath.takeDirectory (FilePath.dropTrailingPathSeparator fp)))