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