X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FMarshal%2FUtils.hs;h=bf9bdb3c8b97dfa83ca0c653a2a284404d74529c;hb=f98950484a7cb01e43352e3d88277a2784cd58bf;hp=5ae677a19d05e37e568c3a938159cc5c2a59540e;hpb=41e8fba828acbae1751628af50849f5352b27873;p=ghc-base.git

diff --git a/Foreign/Marshal/Utils.hs b/Foreign/Marshal/Utils.hs
index 5ae677a..bf9bdb3 100644
--- a/Foreign/Marshal/Utils.hs
+++ b/Foreign/Marshal/Utils.hs
@@ -118,8 +118,8 @@ toBool  = (/= 0)
 --
 -- * the 'nullPtr' is used to represent 'Nothing'
 --
-maybeNew :: (      a -> IO (Ptr a))
-         -> (Maybe a -> IO (Ptr a))
+maybeNew :: (      a -> IO (Ptr b))
+         -> (Maybe a -> IO (Ptr b))
 maybeNew  = maybe (return nullPtr)
 
 -- |Converts a @withXXX@ combinator into one marshalling a value wrapped