diff --git a/path.cabal b/path.cabal index 177a138..c723327 100644 --- 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 diff --git a/src/Path.hs b/src/Path.hs index 6315148..c1e014a 100644 --- 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)))