diff options
Diffstat (limited to 'lib/Paths.hs')
| -rw-r--r-- | lib/Paths.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Paths.hs b/lib/Paths.hs index 5044673..af66e77 100644 --- a/lib/Paths.hs +++ b/lib/Paths.hs @@ -35,8 +35,9 @@ parsePath text = else Nothing instance PrettyPrint RelPath where - prettyprint (Path up rest _) = ups <> rest + prettyprint (Path up rest frag) = ups <> rest <> fragment where ups = T.concat $ replicate up "../" + fragment = maybe mempty ("#" <>) frag -- | Normalises a path. -- @@ -48,3 +49,7 @@ normalise prefix (Path 0 path _) = prefix </> T.unpack path normalise prefix (Path i path _) = concat (take (length dirs - i) dirs) </> T.unpack path where dirs = splitPath prefix + +normaliseWithFrag :: FilePath -> RelPath -> FilePath +normaliseWithFrag prefix (Path i path frag) = + normalise prefix (Path (i+1) path frag) <> T.unpack (maybe mempty ("#" <>) frag) |