haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add and process Keter option 'extraFiles'

Browse Source
This commit is contained in:
Bryan Richter 2015-03-04 09:31:26 -08:00
parent 76ed92fe9f
commit 6b43e08f89
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
yesod-bin/Keter.hs
View File

@ -53,14 +53,18 @@ keter cabal noBuild = do
[] -> error "No cabal file found" [] -> error "No cabal file found"
_ -> error "Too many cabal files found" _ -> error "Too many cabal files found"
let findExecs (Object v) = let findFiles (Object v) =
mapM_ go $ Map.toList v mapM_ go $ Map.toList v
where where
go ("exec", String s) = tell [F.collapse $ "config" F.</> F.fromText s] go ("exec", String s) = tellFile s
go (_, v') = findExecs v' go ("extraFiles", Array v) = Fold.mapM_ tellFile' v
findExecs (Array v) = Fold.mapM_ findExecs v go (_, v') = findFiles v'
findExecs _ = return () findFiles (Array v) = Fold.mapM_ findFiles v
execs = execWriter $ findExecs $ Object value findFiles _ = return ()
bundleFiles = execWriter $ findFiles $ Object value
tellFile s = tell [F.collapse $ "config" F.</> F.fromText s]
tellFile' (String s) = tellFile s
tellFile' _ = error "extraFiles should be a flat array"
unless noBuild $ do unless noBuild $ do
run cabal ["clean"] run cabal ["clean"]
@ -69,7 +73,8 @@ keter cabal noBuild = do
_ <- try' $ F.removeTree "static/tmp" _ <- try' $ F.removeTree "static/tmp"
archive <- Tar.pack "" $ "config" : "static" : map F.encodeString execs archive <- Tar.pack "" $
"config" : "static" : map F.encodeString bundleFiles
let fp = T.unpack project ++ ".keter" let fp = T.unpack project ++ ".keter"
L.writeFile fp $ compress $ Tar.write archive L.writeFile fp $ compress $ Tar.write archive