X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FNativeMachine.hs;h=2587d939bb4342b8b3dbbcb354d4e0f96da6ca98;hb=6eb91f6ec18c7cbfecd62fa80083aa03cecdeae8;hp=14747410d3d8dcc28f55b3a8627a47eff25089b1;hpb=38a8a9fe4d12f701fb7631208389666bcd568fa9;p=mate.git

diff --git a/Mate/NativeMachine.hs b/Mate/NativeMachine.hs
index 1474741..2587d93 100644
--- a/Mate/NativeMachine.hs
+++ b/Mate/NativeMachine.hs
@@ -11,7 +11,10 @@ module Mate.NativeMachine(
 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