diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-19 21:16:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-19 21:16:18 -0400 |
| commit | 205d1925598f986dd4ce679e17e487c089592ff3 (patch) | |
| tree | 68cfd6ceb438e4dc4fa658270b2c4e6605a1487b /src/Propellor/Property/Debootstrap.hs | |
| parent | 4de7d4295c91b07b1338db2114b9557b5353a978 (diff) | |
fix param order
Diffstat (limited to 'src/Propellor/Property/Debootstrap.hs')
| -rw-r--r-- | src/Propellor/Property/Debootstrap.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs index 23dabcf6..ed851d97 100644 --- a/src/Propellor/Property/Debootstrap.hs +++ b/src/Propellor/Property/Debootstrap.hs @@ -45,9 +45,9 @@ built target system@(System _ arch) extraparams = Nothing -> errorMessage $ "don't know how to debootstrap " ++ show system Just s -> pure s let params = extraparams ++ - [ Param suite + [ Param $ "--arch=" ++ arch + , Param suite , Param target - , Param $ "--arch=" ++ arch ] cmd <- fromMaybe "debootstrap" <$> programPath ifM (boolSystem cmd params) |