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/path.cabal
+++ b/path.cabal
@@ -1,5 +1,5 @@
 name:                path
-version:             0.0.1
+version:             0.1.0
 synopsis:            Path
 description:         Path
 license:             BSD3
--- 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)))