feat: implement t-PpYZt2

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