From 6b4432c5884d7187140d5fde771444f7c8301438 Mon Sep 17 00:00:00 2001
From: Félix Sipma <felix.sipma@no-log.org>
Date: Tue, 24 May 2016 12:57:44 +0200
Subject: convert Architecture to a sumtype

TODO: remove ANDROID (used in GitAnnexBuilder)
TODO: add other architectures
TODO: rename ARMHF
TODO: rename ARMEL
(cherry picked from commit 6f36f6cade4e1d8b15c714565e223562c6573099)
---
 src/Propellor/Property/Debootstrap.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Propellor/Property/Debootstrap.hs')

diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs
index 87f30776..1503f223 100644
--- a/src/Propellor/Property/Debootstrap.hs
+++ b/src/Propellor/Property/Debootstrap.hs
@@ -67,7 +67,7 @@ built' installprop target system@(System _ arch) config =
 			Nothing -> errorMessage $ "don't know how to debootstrap " ++ show system
 			Just s -> pure s
 		let params = toParams config ++
-			[ Param $ "--arch=" ++ arch
+			[ Param $ "--arch=" ++ architectureToDebianArchString arch
 			, Param suite
 			, Param target
 			]
-- 
cgit v1.3-2-g0d8e