@@ -7,11 +7,11 @@ import System.Environment
7main :: IO ()
7main :: IO ()
9 --TODO: Usage
9 --TODO: Usage
10− [root, haskellTarget, packageName, moduleName, fileTarget] <- getArgs
10+ [root, rootLocalPath, haskellTarget, packageName, moduleName, fileTarget] <- getArgs
11 paths <- gatherHashedPaths root
11 paths <- gatherHashedPaths root
12 writeStaticProject paths haskellTarget $ StaticConfig
12 writeStaticProject paths haskellTarget $ StaticConfig
13 { _staticConfig_packageName = T.pack packageName
13 { _staticConfig_packageName = T.pack packageName
14 , _staticConfig_moduleName = T.pack moduleName
14 , _staticConfig_moduleName = T.pack moduleName
15− , _staticConfig_rootPath = root
15+ , _staticConfig_rootPath = rootLocalPath
17 copyAndSymlink paths root fileTarget
17 copyAndSymlink paths root fileTarget