summaryrefslogtreecommitdiff
path: root/fsmgr.hs
diff options
context:
space:
mode:
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 dbde290..2ee7c7c 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