X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FGarbageAlloc.hs;h=56bb8f17a80cde7cfa65808258fdecaa74a907be;hb=13cf9f65321881050edb99776f29eea8580ec457;hp=1a272fbaedbbd02265d47a3a72785ab5b755cd8e;hpb=ee56f72af455227969181f78e921e5524aa36325;p=mate.git

diff --git a/Mate/GarbageAlloc.hs b/Mate/GarbageAlloc.hs
index 1a272fb..56bb8f1 100644
--- a/Mate/GarbageAlloc.hs
+++ b/Mate/GarbageAlloc.hs
@@ -24,8 +24,8 @@ mallocString size = do
   printfStr "mallocString: %d\n" size
   mallocBytes size
 
-foreign export ccall mallocObject :: Int -> IO CUInt
-mallocObject :: Int -> IO CUInt
+foreign export ccall mallocObject :: Int -> IO CPtrdiff
+mallocObject :: Int -> IO CPtrdiff
 mallocObject size = do
   ptr <- mallocBytes size
   printfStr "mallocObject: %d\n" size