compiler: add option to add implicit directory tags

GitHub: closes #7

1 files changed, 6 insertions, 1 deletions

diff --git a/compiler/src/Files.hs b/compiler/src/Files.hs
index ed082ba..a6649c8 100644
--- a/compiler/src/Files.hs
+++ b/compiler/src/Files.hs
@@ -23,7 +23,8 @@
 
 module Files
   ( FileName, LocalPath, WebPath, Path
-  , (</>), (</), (/>), (<.>), fileName, subPaths, pathLength
+  , (</>), (</), (/>), (<.>)
+  , fileName, maybeFileName, subPaths, pathLength
   , localPath, webPath
   , FSNode(..), AnchoredFSNode(..)
   , nodePath, nodeName, isHidden, flattenDir, filterDir, readDirectory
@@ -80,6 +81,10 @@ file /> (Path path) = Path (path ++ [file])
 fileName :: Path -> FileName
 fileName (Path (name:_)) = name
 
+maybeFileName :: Path -> Maybe FileName
+maybeFileName (Path (name:_)) = Just name
+maybeFileName _ = Nothing
+
 subPaths :: Path -> [Path]
 subPaths (Path path) = map Path $ subsequences path