nativeMaschine: use NativeWord instead of Word32

[mate.git] / Mate / NativeSizes.hs

diff --git a/Mate/NativeSizes.hs b/Mate/NativeSizes.hs
index b6d9286a61aebf219bc06130197e9de478ca0997..07c437191261f2b6790a90b06975407fd80ed9b9 100644 (file)
--- a/Mate/NativeSizes.hs
+++ b/Mate/NativeSizes.hs
@@ -2,8 +2,10 @@ module Mate.NativeSizes where
 
 import Data.Word
 
-ptrSize, longSize :: Word32
+ptrSize, longSize :: NativeWord
 #ifdef i386_HOST_ARCH
 ptrSize = 4
 longSize = 8
+
+type NativeWord = Word32
 #endif