blob: d78406b81bf0de02c1d7ece5309eb27c0f8648da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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)
|
