From d21fc297344f639362e89b9746f7570858b037ca Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@cryptonomic.net>
Date: Mon, 10 Jan 2022 20:49:36 -0500
Subject: new fsmgr .yaml config directive: "files"

---
 fsmgr.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'fsmgr.hs')

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
       in do
         forM_ (unpack <$> binaries) go
         forM_ (unpack <$> optionalBinaries) $ ignoreErrors . go
+    {- 3.2 data files -}
+    let go b = do
+          need [b]
+          target <- absPath mountpoint
+          putQuiet $ show (target, b)
+          cmd_ "cp -L" [b] [target ++ b]
+      in forM_ (unpack <$> dataFiles) go
     {- 3.5 skel -}
     let go f = when (not $ null f) $ do
           homeDir <- getHomeDir
-- 
cgit v1.2.3