codegen: handle exceptions of a method

[mate.git] / Mate / NativeMachine.hs

diff --git a/Mate/NativeMachine.hs b/Mate/NativeMachine.hs
index 51e1bdf814bc90eee96ed330e906e685548f3a54..2587d939bb4342b8b3dbbcb354d4e0f96da6ca98 100644 (file)
--- a/Mate/NativeMachine.hs
+++ b/Mate/NativeMachine.hs
@@ -7,11 +7,14 @@ module Mate.NativeMachine(
   NativeWord
   )where
 
-#ifdef i386_HOST_ARCH
+#ifdef ARCH_X86
 import Mate.X86CodeGen
 import Mate.X86TrapHandling
 import Mate.NativeSizes
-
 #else
-#error "no other arch supported yet :/"
+
+-- HACK, for ghc-mod ...
+import Mate.X86CodeGen
+import Mate.X86TrapHandling
+import Mate.NativeSizes
 #endif