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