diff options
Diffstat (limited to 'fsmgr.hs')
-rw-r--r-- | fsmgr.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -34,7 +34,12 @@ noParent (EmptyImageOfBytes _) = True | |||
34 | noParent (ParentImageConfigFile _) = False | 34 | noParent (ParentImageConfigFile _) = False |
35 | 35 | ||
36 | dynamicNames :: FilePath -> FilePath | 36 | dynamicNames :: FilePath -> FilePath |
37 | dynamicNames = replace "$(karch)" uname | 37 | dynamicNames = replace "$(karch)" uname . replace "$(debarch)" debarch |
38 | |||
39 | debarch :: String | ||
40 | debarch = unsafePerformIO $ do | ||
41 | Stdout out <- cmd "dpkg-architecture -q DEB_BUILD_ARCH" | ||
42 | return out | ||
38 | 43 | ||
39 | uname :: String | 44 | uname :: String |
40 | uname = unsafePerformIO $ do | 45 | uname = unsafePerformIO $ do |