summaryrefslogtreecommitdiff
path: root/fsmgr.hs
diff options
context:
space:
mode:
authorAndrew Cady <d@cryptonomic.net>2022-01-10 20:49:36 -0500
committerAndrew Cady <d@cryptonomic.net>2022-01-10 20:50:19 -0500
commitd21fc297344f639362e89b9746f7570858b037ca (patch)
treefc46d59659e0c11e7cfb0c37894f1a8a4c3bdf60 /fsmgr.hs
parent799128b2e4b3f7cad1afe5ab237e7eed8038fc64 (diff)
new fsmgr .yaml config directive: "files"
Diffstat (limited to 'fsmgr.hs')
-rw-r--r--fsmgr.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/fsmgr.hs b/fsmgr.hs
index ed09669..f6569b6 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -175,6 +175,13 @@ buildRoot config@DiskImageConfig{..} finalOut = do
175 in do 175 in do
176 forM_ (unpack <$> binaries) go 176 forM_ (unpack <$> binaries) go
177 forM_ (unpack <$> optionalBinaries) $ ignoreErrors . go 177 forM_ (unpack <$> optionalBinaries) $ ignoreErrors . go
178 {- 3.2 data files -}
179 let go b = do
180 need [b]
181 target <- absPath mountpoint
182 putQuiet $ show (target, b)
183 cmd_ "cp -L" [b] [target ++ b]
184 in forM_ (unpack <$> dataFiles) go
178 {- 3.5 skel -} 185 {- 3.5 skel -}
179 let go f = when (not $ null f) $ do 186 let go f = when (not $ null f) $ do
180 homeDir <- getHomeDir 187 homeDir <- getHomeDir