diff options
Diffstat (limited to 'fsmgr.hs')
-rw-r--r-- | fsmgr.hs | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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 |