simple map-map link dependency checking

This is purely based on a set difference, i.e. it won't catch stupid
things like a map linking to itself, a map link going only one-way, etc.

Also, it only handles map links; it doesn't check if all ressource files
referenced by a map actually exist.

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)