{-# 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)