X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FNativeSizes.hs;h=5e8795b46f158967db8d2e8ee72bdadbee7da25c;hb=dc7082de1fff3158da5682d683502128b5f6cc0b;hp=b6d9286a61aebf219bc06130197e9de478ca0997;hpb=33fee81a6dc52f54beda6819c95e7e4571613ea6;p=mate.git

diff --git a/Mate/NativeSizes.hs b/Mate/NativeSizes.hs
index b6d9286..5e8795b 100644
--- a/Mate/NativeSizes.hs
+++ b/Mate/NativeSizes.hs
@@ -1,9 +1,17 @@
+{-# LANGUAGE CPP #-}
 module Mate.NativeSizes where
 
 import Data.Word
 
-ptrSize, longSize :: Word32
-#ifdef i386_HOST_ARCH
+ptrSize, longSize :: NativeWord
+#if defined(ARCH_X86)
 ptrSize = 4
 longSize = 8
+
+type NativeWord = Word32
+#else
+-- HACK, for ghc-mod ...
+ptrSize = undefined
+longSize = undefined
+type NativeWord = Word32
 #endif