summaryrefslogtreecommitdiff
path: root/debug_ns.hs
diff options
context:
space:
mode:
Diffstat (limited to 'debug_ns.hs')
-rw-r--r--debug_ns.hs17
1 files changed, 17 insertions, 0 deletions
diff --git a/debug_ns.hs b/debug_ns.hs
new file mode 100644
index 0000000..fbd4ea3
--- /dev/null
+++ b/debug_ns.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+module Main where
+
+import Omni.Namespace
+import Protolude
+import qualified Data.Text as T
+
+main :: IO ()
+main = do
+ let root = "/home/ben/omni-worker-1"
+ let path = "/home/ben/omni-worker-1/Omni/Task.hs"
+ putStrLn $ "Root: " ++ root
+ putStrLn $ "Path: " ++ path
+ let res = fromPath root path
+ print res