X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FPlatform.hs;h=e4f97bdda7bc4541832ab4930e282cde166da883;hp=7b2502d96e104662a3bbe04662a90f51f9f40168;hb=2c8aabcad1d2f2c469cb8a10afa7b66beeaedd45;hpb=7da235b10ab22b58d767367763139c962f348753

diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs
index 7b2502d..e4f97bd 100644
--- a/compiler/utils/Platform.hs
+++ b/compiler/utils/Platform.hs
@@ -31,7 +31,8 @@ data Platform
 --	about what instruction set extensions an architecture might support.
 --
 data Arch
-	= ArchX86
+	= ArchUnknown
+	| ArchX86
 	| ArchX86_64
 	| ArchPPC
 	| ArchPPC_64
@@ -80,7 +81,7 @@ defaultTargetArch	= ArchPPC_64
 #elif sparc_TARGET_ARCH
 defaultTargetArch	= ArchSPARC
 #else
-#error	"Platform.buildArch: undefined"
+defaultTargetArch	= ArchUnknown
 #endif