$(debarch) support

1 files changed, 6 insertions, 1 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index d28c0e4..a96bc1b 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -34,7 +34,12 @@ noParent (EmptyImageOfBytes _)     = True
 noParent (ParentImageConfigFile _) = False
 
 dynamicNames :: FilePath -> FilePath
-dynamicNames = replace "$(karch)" uname
+dynamicNames = replace "$(karch)" uname . replace "$(debarch)" debarch
+
+debarch :: String
+debarch = unsafePerformIO $ do
+  Stdout out <- cmd "dpkg-architecture -q DEB_BUILD_ARCH"
+  return out
 
 uname :: String
 uname = unsafePerformIO $ do