From bf7a6695c972b61e693aa0a239ab4fa66f369466 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 21 Nov 2025 00:57:42 -0500 Subject: feat: implement t-1rdJxcd --- Omni/Reproduce.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 Omni/Reproduce.hs (limited to 'Omni/Reproduce.hs') 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) -- cgit v1.2.3