feat: implement t-1rdJxcd

1 files changed, 20 insertions, 0 deletions

diff --git a/Omni/Reproduce.hs b/Omni/Reproduce.hs
new file mode 100644
index 0000000..d78406b
--- /dev/null
+++ b/Omni/Reproduce.hs
@@ -0,0 +1,20 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+-- : out reproduce
+module Omni.Reproduce where
+
+import Alpha
+import Omni.Namespace (fromHaskellModule, toPath)
+
+main :: IO ()
+main = do
+    let ns1 = "Omni/Task.hs"
+    let parsed1 = fromHaskellModule ns1
+    putStrLn $ "Input: " ++ ns1
+    putStrLn $ "Parsed path: " ++ show (toPath parsed1)
+    
+    let ns2 = "Omni.Task.hs"
+    let parsed2 = fromHaskellModule ns2
+    putStrLn $ "Input: " ++ ns2
+    putStrLn $ "Parsed path: " ++ show (toPath parsed2)