git.iko.soy/obelisk
on decrease-android-validity help sign in
obelisk/lib/asset/manifest/src-bin/generate.hs
16 lines 497 B history raw
1import qualified Data.Text as T
2import Obelisk.Asset.Gather
3import Obelisk.Asset.Promoted
4import Obelisk.Asset.Symlink
5import System.Environment
7main :: IO ()
8main = do
9 --TODO: Usage
10 [root, haskellTarget, packageName, moduleName, fileTarget] <- getArgs
11 paths <- gatherHashedPaths root
12 writeStaticProject paths haskellTarget $ StaticConfig
13 { _staticConfig_packageName = T.pack packageName
14 , _staticConfig_moduleName = T.pack moduleName
15 }
16 copyAndSymlink paths root fileTarget