From 205d1925598f986dd4ce679e17e487c089592ff3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Nov 2014 21:16:18 -0400 Subject: fix param order --- src/Propellor/Property/Debootstrap.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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) -- cgit v1.2.3