summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/OS.hs
diff options
context:
space:
mode:
authorJoey Hess2016-06-13 23:25:44 -0400
committerJoey Hess2016-06-13 23:25:44 -0400
commit55717902681f27a0649fbaec9ad17f1cba09eb6f (patch)
tree3fd384b00bacd7b76322c167188a694321f0a1a7 /src/Propellor/Types/OS.hs
parentecfca78b86f25a01b519602cc72dfafe076a63bf (diff)
add several Architectures
Cherry-picked from aa8e99c305a07d99cc63e17ca3461f421859bdc5, but without changes to a module that is being added on the precompiled branch.
Diffstat (limited to 'src/Propellor/Types/OS.hs')
-rw-r--r--src/Propellor/Types/OS.hs21
1 files changed, 17 insertions, 4 deletions
diff --git a/src/Propellor/Types/OS.hs b/src/Propellor/Types/OS.hs
index 662983b2..7a60d412 100644
--- a/src/Propellor/Types/OS.hs
+++ b/src/Propellor/Types/OS.hs
@@ -76,12 +76,9 @@ isStable (Stable _) = True
isStable _ = False
type Release = String
-data Architecture = X86_64 | X86_32 | ARMHF | ARMEL | ANDROID
+data Architecture = X86_64 | X86_32 | ARMHF | ARMEL | ANDROID | PPC | PPC64 | SPARC | SPARC64 | MIPS | MIPSEL | MIPS64EL | SH4 | IA64 | S390 | S390X | ALPHA | HPPA | M68K | ARM64 | X32
deriving (Show, Eq)
-- TODO: remove ANDROID (used in GitAnnexBuilder)
--- TODO: add other architectures
--- TODO: rename ARMHF
--- TODO: rename ARMEL
architectureToDebianArchString :: Architecture -> String
architectureToDebianArchString X86_64 = "amd64"
@@ -89,6 +86,22 @@ architectureToDebianArchString X86_32 = "i386"
architectureToDebianArchString ARMHF = "armhf"
architectureToDebianArchString ARMEL = "armel"
architectureToDebianArchString ANDROID = "android"
+architectureToDebianArchString PPC = "powerpc"
+architectureToDebianArchString PPC64 = "ppc64el"
+architectureToDebianArchString SPARC = "sparc"
+architectureToDebianArchString SPARC64 = "sparc64"
+architectureToDebianArchString MIPS = "mips"
+architectureToDebianArchString MIPSEL = "mipsel"
+architectureToDebianArchString MIPS64EL = "mips64el"
+architectureToDebianArchString SH4 = "sh"
+architectureToDebianArchString IA64 = "ia64"
+architectureToDebianArchString S390 = "s390"
+architectureToDebianArchString S390X = "s390x"
+architectureToDebianArchString ALPHA = "alpha"
+architectureToDebianArchString HPPA = "hppa"
+architectureToDebianArchString M68K = "m68k"
+architectureToDebianArchString ARM64 = "arm64"
+architectureToDebianArchString X32 = "x32"
type UserName = String