diff --git a/GI/GObject/Callbacks.hs b/GI/GObject/Callbacks.hs
--- a/GI/GObject/Callbacks.hs
+++ b/GI/GObject/Callbacks.hs
@@ -503,7 +503,7 @@
     IO CString
 typeValueTableLcopyValueFieldCallbackWrapper funptrptr _cb value nCollectValues collectValues collectFlags = do
     value' <- (newBoxed GValue) value
-    collectValues' <- (newPtr 8 TypeCValue) collectValues
+    collectValues' <- (newPtr TypeCValue) collectValues
     result <- _cb  value' nCollectValues collectValues' collectFlags
     maybeReleaseFunPtr funptrptr
     result' <- textToCString result
@@ -544,7 +544,7 @@
     IO CString
 typeValueTableCollectValueFieldCallbackWrapper funptrptr _cb value nCollectValues collectValues collectFlags = do
     value' <- (newBoxed GValue) value
-    collectValues' <- (newPtr 8 TypeCValue) collectValues
+    collectValues' <- (newPtr TypeCValue) collectValues
     result <- _cb  value' nCollectValues collectValues' collectFlags
     maybeReleaseFunPtr funptrptr
     result' <- textToCString result
@@ -621,7 +621,7 @@
     Ptr TypeClass ->
     IO CInt
 typeClassCacheFuncWrapper funptrptr _cb cacheData gClass = do
-    gClass' <- (newPtr 8 TypeClass) gClass
+    gClass' <- (newPtr TypeClass) gClass
     result <- _cb  cacheData gClass'
     maybeReleaseFunPtr funptrptr
     let result' = (fromIntegral . fromEnum) result
@@ -696,7 +696,7 @@
     Ptr () ->
     IO CInt
 signalEmissionHookWrapper funptrptr _cb ihint nParamValues paramValues data_ = do
-    ihint' <- (newPtr 12 SignalInvocationHint) ihint
+    ihint' <- (newPtr SignalInvocationHint) ihint
     paramValues' <- (unpackBoxedArrayWithLength 24 nParamValues) paramValues
     paramValues'' <- mapM (newBoxed GValue) paramValues'
     result <- _cb  ihint' paramValues'' data_
@@ -738,7 +738,7 @@
     Ptr () ->
     IO CInt
 signalAccumulatorWrapper funptrptr _cb ihint returnAccu handlerReturn data_ = do
-    ihint' <- (newPtr 12 SignalInvocationHint) ihint
+    ihint' <- (newPtr SignalInvocationHint) ihint
     returnAccu' <- (newBoxed GValue) returnAccu
     handlerReturn' <- (newBoxed GValue) handlerReturn
     result <- _cb  ihint' returnAccu' handlerReturn' data_
@@ -1109,7 +1109,7 @@
     Ptr () ->
     IO ()
 instanceInitFuncWrapper funptrptr _cb instance_ gClass = do
-    instance_' <- (newPtr 8 TypeInstance) instance_
+    instance_' <- (newPtr TypeInstance) instance_
     _cb  instance_' gClass
     maybeReleaseFunPtr funptrptr
 
diff --git a/GI/GObject/Functions.hs b/GI/GObject/Functions.hs
--- a/GI/GObject/Functions.hs
+++ b/GI/GObject/Functions.hs
@@ -1142,7 +1142,7 @@
     let gType' = gtypeToCGType gType
     result <- g_type_default_interface_ref gType'
     checkUnexpectedReturnNULL "g_type_default_interface_ref" result
-    result' <- (newPtr 16 TypeInterface) result
+    result' <- (newPtr TypeInterface) result
     return result'
 
 
@@ -1166,7 +1166,7 @@
     let gType' = gtypeToCGType gType
     result <- g_type_default_interface_peek gType'
     checkUnexpectedReturnNULL "g_type_default_interface_peek" result
-    result' <- (newPtr 16 TypeInterface) result
+    result' <- (newPtr TypeInterface) result
     return result'
 
 
@@ -2173,7 +2173,7 @@
     let instance_' = unsafeManagedPtrCastPtr instance_
     result <- g_signal_get_invocation_hint instance_'
     checkUnexpectedReturnNULL "g_signal_get_invocation_hint" result
-    result' <- (newPtr 12 SignalInvocationHint) result
+    result' <- (newPtr SignalInvocationHint) result
     touchManagedPtr instance_
     return result'
 
@@ -3533,7 +3533,7 @@
     nick' <- textToCString nick
     result <- g_flags_get_value_by_nick flagsClass' nick'
     checkUnexpectedReturnNULL "g_flags_get_value_by_nick" result
-    result' <- (newPtr 24 FlagsValue) result
+    result' <- (newPtr FlagsValue) result
     touchManagedPtr flagsClass
     freeMem nick'
     return result'
@@ -3562,7 +3562,7 @@
     name' <- textToCString name
     result <- g_flags_get_value_by_name flagsClass' name'
     checkUnexpectedReturnNULL "g_flags_get_value_by_name" result
-    result' <- (newPtr 24 FlagsValue) result
+    result' <- (newPtr FlagsValue) result
     touchManagedPtr flagsClass
     freeMem name'
     return result'
@@ -3590,7 +3590,7 @@
     let flagsClass' = unsafeManagedPtrGetPtr flagsClass
     result <- g_flags_get_first_value flagsClass' value
     checkUnexpectedReturnNULL "g_flags_get_first_value" result
-    result' <- (newPtr 24 FlagsValue) result
+    result' <- (newPtr FlagsValue) result
     touchManagedPtr flagsClass
     return result'
 
@@ -3675,7 +3675,7 @@
     nick' <- textToCString nick
     result <- g_enum_get_value_by_nick enumClass' nick'
     checkUnexpectedReturnNULL "g_enum_get_value_by_nick" result
-    result' <- (newPtr 24 EnumValue) result
+    result' <- (newPtr EnumValue) result
     touchManagedPtr enumClass
     freeMem nick'
     return result'
@@ -3704,7 +3704,7 @@
     name' <- textToCString name
     result <- g_enum_get_value_by_name enumClass' name'
     checkUnexpectedReturnNULL "g_enum_get_value_by_name" result
-    result' <- (newPtr 24 EnumValue) result
+    result' <- (newPtr EnumValue) result
     touchManagedPtr enumClass
     freeMem name'
     return result'
@@ -3732,7 +3732,7 @@
     let enumClass' = unsafeManagedPtrGetPtr enumClass
     result <- g_enum_get_value enumClass' value
     checkUnexpectedReturnNULL "g_enum_get_value" result
-    result' <- (newPtr 24 EnumValue) result
+    result' <- (newPtr EnumValue) result
     touchManagedPtr enumClass
     return result'
 
diff --git a/GI/GObject/Structs/CClosure.hs b/GI/GObject/Structs/CClosure.hs
--- a/GI/GObject/Structs/CClosure.hs
+++ b/GI/GObject/Structs/CClosure.hs
@@ -142,9 +142,14 @@
 import GI.GObject.Callbacks
 
 newtype CClosure = CClosure (ForeignPtr CClosure)
+instance WrappedPtr CClosure where
+    wrappedPtrCalloc = callocBytes 72
+    wrappedPtrCopy = copyPtr 72
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `CClosure` struct initialized to zero.
 newZeroCClosure :: MonadIO m => m CClosure
-newZeroCClosure = liftIO $ callocBytes 72 >>= wrapPtr CClosure
+newZeroCClosure = liftIO $ wrappedPtrCalloc >>= wrapPtr CClosure
 
 instance tag ~ 'AttrSet => Constructible CClosure tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/CClosure.hs-boot b/GI/GObject/Structs/CClosure.hs-boot
--- a/GI/GObject/Structs/CClosure.hs-boot
+++ b/GI/GObject/Structs/CClosure.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype CClosure = CClosure (ForeignPtr CClosure)
+instance WrappedPtr CClosure where
diff --git a/GI/GObject/Structs/ClosureNotifyData.hs b/GI/GObject/Structs/ClosureNotifyData.hs
--- a/GI/GObject/Structs/ClosureNotifyData.hs
+++ b/GI/GObject/Structs/ClosureNotifyData.hs
@@ -38,9 +38,14 @@
 import GI.GObject.Callbacks
 
 newtype ClosureNotifyData = ClosureNotifyData (ForeignPtr ClosureNotifyData)
+instance WrappedPtr ClosureNotifyData where
+    wrappedPtrCalloc = callocBytes 16
+    wrappedPtrCopy = copyPtr 16
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `ClosureNotifyData` struct initialized to zero.
 newZeroClosureNotifyData :: MonadIO m => m ClosureNotifyData
-newZeroClosureNotifyData = liftIO $ callocBytes 16 >>= wrapPtr ClosureNotifyData
+newZeroClosureNotifyData = liftIO $ wrappedPtrCalloc >>= wrapPtr ClosureNotifyData
 
 instance tag ~ 'AttrSet => Constructible ClosureNotifyData tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/ClosureNotifyData.hs-boot b/GI/GObject/Structs/ClosureNotifyData.hs-boot
--- a/GI/GObject/Structs/ClosureNotifyData.hs-boot
+++ b/GI/GObject/Structs/ClosureNotifyData.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype ClosureNotifyData = ClosureNotifyData (ForeignPtr ClosureNotifyData)
+instance WrappedPtr ClosureNotifyData where
diff --git a/GI/GObject/Structs/EnumClass.hs b/GI/GObject/Structs/EnumClass.hs
--- a/GI/GObject/Structs/EnumClass.hs
+++ b/GI/GObject/Structs/EnumClass.hs
@@ -66,9 +66,14 @@
 import GI.GObject.Callbacks
 
 newtype EnumClass = EnumClass (ForeignPtr EnumClass)
+instance WrappedPtr EnumClass where
+    wrappedPtrCalloc = callocBytes 32
+    wrappedPtrCopy = copyPtr 32
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `EnumClass` struct initialized to zero.
 newZeroEnumClass :: MonadIO m => m EnumClass
-newZeroEnumClass = liftIO $ callocBytes 32 >>= wrapPtr EnumClass
+newZeroEnumClass = liftIO $ wrappedPtrCalloc >>= wrapPtr EnumClass
 
 instance tag ~ 'AttrSet => Constructible EnumClass tag where
     new _ attrs = do
@@ -84,7 +89,7 @@
 enumClassReadGTypeClass s = liftIO $ withManagedPtr s $ \ptr -> do
     val <- peek (ptr `plusPtr` 0) :: IO (Ptr TypeClass)
     result <- convertIfNonNull val $ \val' -> do
-        val'' <- (newPtr 8 TypeClass) val'
+        val'' <- (newPtr TypeClass) val'
         return val''
     return result
 
@@ -191,7 +196,7 @@
 enumClassReadValues s = liftIO $ withManagedPtr s $ \ptr -> do
     val <- peek (ptr `plusPtr` 24) :: IO (Ptr EnumValue)
     result <- convertIfNonNull val $ \val' -> do
-        val'' <- (newPtr 24 EnumValue) val'
+        val'' <- (newPtr EnumValue) val'
         return val''
     return result
 
diff --git a/GI/GObject/Structs/EnumClass.hs-boot b/GI/GObject/Structs/EnumClass.hs-boot
--- a/GI/GObject/Structs/EnumClass.hs-boot
+++ b/GI/GObject/Structs/EnumClass.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype EnumClass = EnumClass (ForeignPtr EnumClass)
+instance WrappedPtr EnumClass where
diff --git a/GI/GObject/Structs/EnumValue.hs b/GI/GObject/Structs/EnumValue.hs
--- a/GI/GObject/Structs/EnumValue.hs
+++ b/GI/GObject/Structs/EnumValue.hs
@@ -54,9 +54,14 @@
 import GI.GObject.Callbacks
 
 newtype EnumValue = EnumValue (ForeignPtr EnumValue)
+instance WrappedPtr EnumValue where
+    wrappedPtrCalloc = callocBytes 24
+    wrappedPtrCopy = copyPtr 24
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `EnumValue` struct initialized to zero.
 newZeroEnumValue :: MonadIO m => m EnumValue
-newZeroEnumValue = liftIO $ callocBytes 24 >>= wrapPtr EnumValue
+newZeroEnumValue = liftIO $ wrappedPtrCalloc >>= wrapPtr EnumValue
 
 instance tag ~ 'AttrSet => Constructible EnumValue tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/EnumValue.hs-boot b/GI/GObject/Structs/EnumValue.hs-boot
--- a/GI/GObject/Structs/EnumValue.hs-boot
+++ b/GI/GObject/Structs/EnumValue.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype EnumValue = EnumValue (ForeignPtr EnumValue)
+instance WrappedPtr EnumValue where
diff --git a/GI/GObject/Structs/FlagsClass.hs b/GI/GObject/Structs/FlagsClass.hs
--- a/GI/GObject/Structs/FlagsClass.hs
+++ b/GI/GObject/Structs/FlagsClass.hs
@@ -60,9 +60,14 @@
 import GI.GObject.Callbacks
 
 newtype FlagsClass = FlagsClass (ForeignPtr FlagsClass)
+instance WrappedPtr FlagsClass where
+    wrappedPtrCalloc = callocBytes 24
+    wrappedPtrCopy = copyPtr 24
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `FlagsClass` struct initialized to zero.
 newZeroFlagsClass :: MonadIO m => m FlagsClass
-newZeroFlagsClass = liftIO $ callocBytes 24 >>= wrapPtr FlagsClass
+newZeroFlagsClass = liftIO $ wrappedPtrCalloc >>= wrapPtr FlagsClass
 
 instance tag ~ 'AttrSet => Constructible FlagsClass tag where
     new _ attrs = do
@@ -78,7 +83,7 @@
 flagsClassReadGTypeClass s = liftIO $ withManagedPtr s $ \ptr -> do
     val <- peek (ptr `plusPtr` 0) :: IO (Ptr TypeClass)
     result <- convertIfNonNull val $ \val' -> do
-        val'' <- (newPtr 8 TypeClass) val'
+        val'' <- (newPtr TypeClass) val'
         return val''
     return result
 
@@ -160,7 +165,7 @@
 flagsClassReadValues s = liftIO $ withManagedPtr s $ \ptr -> do
     val <- peek (ptr `plusPtr` 16) :: IO (Ptr FlagsValue)
     result <- convertIfNonNull val $ \val' -> do
-        val'' <- (newPtr 24 FlagsValue) val'
+        val'' <- (newPtr FlagsValue) val'
         return val''
     return result
 
diff --git a/GI/GObject/Structs/FlagsClass.hs-boot b/GI/GObject/Structs/FlagsClass.hs-boot
--- a/GI/GObject/Structs/FlagsClass.hs-boot
+++ b/GI/GObject/Structs/FlagsClass.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype FlagsClass = FlagsClass (ForeignPtr FlagsClass)
+instance WrappedPtr FlagsClass where
diff --git a/GI/GObject/Structs/FlagsValue.hs b/GI/GObject/Structs/FlagsValue.hs
--- a/GI/GObject/Structs/FlagsValue.hs
+++ b/GI/GObject/Structs/FlagsValue.hs
@@ -54,9 +54,14 @@
 import GI.GObject.Callbacks
 
 newtype FlagsValue = FlagsValue (ForeignPtr FlagsValue)
+instance WrappedPtr FlagsValue where
+    wrappedPtrCalloc = callocBytes 24
+    wrappedPtrCopy = copyPtr 24
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `FlagsValue` struct initialized to zero.
 newZeroFlagsValue :: MonadIO m => m FlagsValue
-newZeroFlagsValue = liftIO $ callocBytes 24 >>= wrapPtr FlagsValue
+newZeroFlagsValue = liftIO $ wrappedPtrCalloc >>= wrapPtr FlagsValue
 
 instance tag ~ 'AttrSet => Constructible FlagsValue tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/FlagsValue.hs-boot b/GI/GObject/Structs/FlagsValue.hs-boot
--- a/GI/GObject/Structs/FlagsValue.hs-boot
+++ b/GI/GObject/Structs/FlagsValue.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype FlagsValue = FlagsValue (ForeignPtr FlagsValue)
+instance WrappedPtr FlagsValue where
diff --git a/GI/GObject/Structs/InterfaceInfo.hs b/GI/GObject/Structs/InterfaceInfo.hs
--- a/GI/GObject/Structs/InterfaceInfo.hs
+++ b/GI/GObject/Structs/InterfaceInfo.hs
@@ -41,9 +41,14 @@
 import GI.GObject.Callbacks
 
 newtype InterfaceInfo = InterfaceInfo (ForeignPtr InterfaceInfo)
+instance WrappedPtr InterfaceInfo where
+    wrappedPtrCalloc = callocBytes 24
+    wrappedPtrCopy = copyPtr 24
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `InterfaceInfo` struct initialized to zero.
 newZeroInterfaceInfo :: MonadIO m => m InterfaceInfo
-newZeroInterfaceInfo = liftIO $ callocBytes 24 >>= wrapPtr InterfaceInfo
+newZeroInterfaceInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr InterfaceInfo
 
 instance tag ~ 'AttrSet => Constructible InterfaceInfo tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/InterfaceInfo.hs-boot b/GI/GObject/Structs/InterfaceInfo.hs-boot
--- a/GI/GObject/Structs/InterfaceInfo.hs-boot
+++ b/GI/GObject/Structs/InterfaceInfo.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype InterfaceInfo = InterfaceInfo (ForeignPtr InterfaceInfo)
+instance WrappedPtr InterfaceInfo where
diff --git a/GI/GObject/Structs/ObjectConstructParam.hs b/GI/GObject/Structs/ObjectConstructParam.hs
--- a/GI/GObject/Structs/ObjectConstructParam.hs
+++ b/GI/GObject/Structs/ObjectConstructParam.hs
@@ -49,9 +49,14 @@
 import GI.GObject.Callbacks
 
 newtype ObjectConstructParam = ObjectConstructParam (ForeignPtr ObjectConstructParam)
+instance WrappedPtr ObjectConstructParam where
+    wrappedPtrCalloc = callocBytes 16
+    wrappedPtrCopy = copyPtr 16
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `ObjectConstructParam` struct initialized to zero.
 newZeroObjectConstructParam :: MonadIO m => m ObjectConstructParam
-newZeroObjectConstructParam = liftIO $ callocBytes 16 >>= wrapPtr ObjectConstructParam
+newZeroObjectConstructParam = liftIO $ wrappedPtrCalloc >>= wrapPtr ObjectConstructParam
 
 instance tag ~ 'AttrSet => Constructible ObjectConstructParam tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/ObjectConstructParam.hs-boot b/GI/GObject/Structs/ObjectConstructParam.hs-boot
--- a/GI/GObject/Structs/ObjectConstructParam.hs-boot
+++ b/GI/GObject/Structs/ObjectConstructParam.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype ObjectConstructParam = ObjectConstructParam (ForeignPtr ObjectConstructParam)
+instance WrappedPtr ObjectConstructParam where
diff --git a/GI/GObject/Structs/ParamSpecPool.hs b/GI/GObject/Structs/ParamSpecPool.hs
--- a/GI/GObject/Structs/ParamSpecPool.hs
+++ b/GI/GObject/Structs/ParamSpecPool.hs
@@ -59,6 +59,12 @@
 import GI.GObject.Callbacks
 
 newtype ParamSpecPool = ParamSpecPool (ForeignPtr ParamSpecPool)
+-- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
+instance WrappedPtr ParamSpecPool where
+    wrappedPtrCalloc = return nullPtr
+    wrappedPtrCopy = return
+    wrappedPtrFree = Nothing
+
 noParamSpecPool :: Maybe ParamSpecPool
 noParamSpecPool = Nothing
 
@@ -224,8 +230,7 @@
     let typePrefixing' = (fromIntegral . fromEnum) typePrefixing
     result <- g_param_spec_pool_new typePrefixing'
     checkUnexpectedReturnNULL "g_param_spec_pool_new" result
-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?
-    result' <- (\x -> ParamSpecPool <$> newForeignPtr_ x) result
+    result' <- (newPtr ParamSpecPool) result
     return result'
 
 type family ResolveParamSpecPoolMethod (t :: Symbol) (o :: *) :: * where
diff --git a/GI/GObject/Structs/ParamSpecPool.hs-boot b/GI/GObject/Structs/ParamSpecPool.hs-boot
--- a/GI/GObject/Structs/ParamSpecPool.hs-boot
+++ b/GI/GObject/Structs/ParamSpecPool.hs-boot
@@ -8,6 +8,7 @@
 import qualified Data.Map as Map
 
 newtype ParamSpecPool = ParamSpecPool (ForeignPtr ParamSpecPool)
+instance WrappedPtr ParamSpecPool where
 data ParamSpecPoolInsertMethodInfo
 data ParamSpecPoolListOwnedMethodInfo
 data ParamSpecPoolLookupMethodInfo
diff --git a/GI/GObject/Structs/ParamSpecTypeInfo.hs b/GI/GObject/Structs/ParamSpecTypeInfo.hs
--- a/GI/GObject/Structs/ParamSpecTypeInfo.hs
+++ b/GI/GObject/Structs/ParamSpecTypeInfo.hs
@@ -57,9 +57,14 @@
 import GI.GObject.Callbacks
 
 newtype ParamSpecTypeInfo = ParamSpecTypeInfo (ForeignPtr ParamSpecTypeInfo)
+instance WrappedPtr ParamSpecTypeInfo where
+    wrappedPtrCalloc = callocBytes 56
+    wrappedPtrCopy = copyPtr 56
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `ParamSpecTypeInfo` struct initialized to zero.
 newZeroParamSpecTypeInfo :: MonadIO m => m ParamSpecTypeInfo
-newZeroParamSpecTypeInfo = liftIO $ callocBytes 56 >>= wrapPtr ParamSpecTypeInfo
+newZeroParamSpecTypeInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr ParamSpecTypeInfo
 
 instance tag ~ 'AttrSet => Constructible ParamSpecTypeInfo tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot b/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot
--- a/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot
+++ b/GI/GObject/Structs/ParamSpecTypeInfo.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype ParamSpecTypeInfo = ParamSpecTypeInfo (ForeignPtr ParamSpecTypeInfo)
+instance WrappedPtr ParamSpecTypeInfo where
diff --git a/GI/GObject/Structs/Parameter.hs b/GI/GObject/Structs/Parameter.hs
--- a/GI/GObject/Structs/Parameter.hs
+++ b/GI/GObject/Structs/Parameter.hs
@@ -48,9 +48,14 @@
 import GI.GObject.Callbacks
 
 newtype Parameter = Parameter (ForeignPtr Parameter)
+instance WrappedPtr Parameter where
+    wrappedPtrCalloc = callocBytes 32
+    wrappedPtrCopy = copyPtr 32
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `Parameter` struct initialized to zero.
 newZeroParameter :: MonadIO m => m Parameter
-newZeroParameter = liftIO $ callocBytes 32 >>= wrapPtr Parameter
+newZeroParameter = liftIO $ wrappedPtrCalloc >>= wrapPtr Parameter
 
 instance tag ~ 'AttrSet => Constructible Parameter tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/Parameter.hs-boot b/GI/GObject/Structs/Parameter.hs-boot
--- a/GI/GObject/Structs/Parameter.hs-boot
+++ b/GI/GObject/Structs/Parameter.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype Parameter = Parameter (ForeignPtr Parameter)
+instance WrappedPtr Parameter where
diff --git a/GI/GObject/Structs/SignalInvocationHint.hs b/GI/GObject/Structs/SignalInvocationHint.hs
--- a/GI/GObject/Structs/SignalInvocationHint.hs
+++ b/GI/GObject/Structs/SignalInvocationHint.hs
@@ -52,9 +52,14 @@
 import GI.GObject.Callbacks
 
 newtype SignalInvocationHint = SignalInvocationHint (ForeignPtr SignalInvocationHint)
+instance WrappedPtr SignalInvocationHint where
+    wrappedPtrCalloc = callocBytes 12
+    wrappedPtrCopy = copyPtr 12
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `SignalInvocationHint` struct initialized to zero.
 newZeroSignalInvocationHint :: MonadIO m => m SignalInvocationHint
-newZeroSignalInvocationHint = liftIO $ callocBytes 12 >>= wrapPtr SignalInvocationHint
+newZeroSignalInvocationHint = liftIO $ wrappedPtrCalloc >>= wrapPtr SignalInvocationHint
 
 instance tag ~ 'AttrSet => Constructible SignalInvocationHint tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/SignalInvocationHint.hs-boot b/GI/GObject/Structs/SignalInvocationHint.hs-boot
--- a/GI/GObject/Structs/SignalInvocationHint.hs-boot
+++ b/GI/GObject/Structs/SignalInvocationHint.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype SignalInvocationHint = SignalInvocationHint (ForeignPtr SignalInvocationHint)
+instance WrappedPtr SignalInvocationHint where
diff --git a/GI/GObject/Structs/SignalQuery.hs b/GI/GObject/Structs/SignalQuery.hs
--- a/GI/GObject/Structs/SignalQuery.hs
+++ b/GI/GObject/Structs/SignalQuery.hs
@@ -71,9 +71,14 @@
 import GI.GObject.Callbacks
 
 newtype SignalQuery = SignalQuery (ForeignPtr SignalQuery)
+instance WrappedPtr SignalQuery where
+    wrappedPtrCalloc = callocBytes 56
+    wrappedPtrCopy = copyPtr 56
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `SignalQuery` struct initialized to zero.
 newZeroSignalQuery :: MonadIO m => m SignalQuery
-newZeroSignalQuery = liftIO $ callocBytes 56 >>= wrapPtr SignalQuery
+newZeroSignalQuery = liftIO $ wrappedPtrCalloc >>= wrapPtr SignalQuery
 
 instance tag ~ 'AttrSet => Constructible SignalQuery tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/SignalQuery.hs-boot b/GI/GObject/Structs/SignalQuery.hs-boot
--- a/GI/GObject/Structs/SignalQuery.hs-boot
+++ b/GI/GObject/Structs/SignalQuery.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype SignalQuery = SignalQuery (ForeignPtr SignalQuery)
+instance WrappedPtr SignalQuery where
diff --git a/GI/GObject/Structs/TypeClass.hs b/GI/GObject/Structs/TypeClass.hs
--- a/GI/GObject/Structs/TypeClass.hs
+++ b/GI/GObject/Structs/TypeClass.hs
@@ -63,9 +63,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeClass = TypeClass (ForeignPtr TypeClass)
+instance WrappedPtr TypeClass where
+    wrappedPtrCalloc = callocBytes 8
+    wrappedPtrCopy = copyPtr 8
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeClass` struct initialized to zero.
 newZeroTypeClass :: MonadIO m => m TypeClass
-newZeroTypeClass = liftIO $ callocBytes 8 >>= wrapPtr TypeClass
+newZeroTypeClass = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeClass
 
 instance tag ~ 'AttrSet => Constructible TypeClass tag where
     new _ attrs = do
@@ -102,7 +107,7 @@
     let _obj' = unsafeManagedPtrGetPtr _obj
     result <- g_type_class_peek_parent _obj'
     checkUnexpectedReturnNULL "g_type_class_peek_parent" result
-    result' <- (newPtr 8 TypeClass) result
+    result' <- (newPtr TypeClass) result
     touchManagedPtr _obj
     return result'
 
@@ -204,7 +209,7 @@
     let type_' = gtypeToCGType type_
     result <- g_type_class_peek type_'
     checkUnexpectedReturnNULL "g_type_class_peek" result
-    result' <- (newPtr 8 TypeClass) result
+    result' <- (newPtr TypeClass) result
     return result'
 
 -- method TypeClass::peek_static
@@ -228,7 +233,7 @@
     let type_' = gtypeToCGType type_
     result <- g_type_class_peek_static type_'
     checkUnexpectedReturnNULL "g_type_class_peek_static" result
-    result' <- (newPtr 8 TypeClass) result
+    result' <- (newPtr TypeClass) result
     return result'
 
 -- method TypeClass::ref
@@ -252,7 +257,7 @@
     let type_' = gtypeToCGType type_
     result <- g_type_class_ref type_'
     checkUnexpectedReturnNULL "g_type_class_ref" result
-    result' <- (newPtr 8 TypeClass) result
+    result' <- (newPtr TypeClass) result
     return result'
 
 type family ResolveTypeClassMethod (t :: Symbol) (o :: *) :: * where
diff --git a/GI/GObject/Structs/TypeClass.hs-boot b/GI/GObject/Structs/TypeClass.hs-boot
--- a/GI/GObject/Structs/TypeClass.hs-boot
+++ b/GI/GObject/Structs/TypeClass.hs-boot
@@ -8,5 +8,6 @@
 import qualified Data.Map as Map
 
 newtype TypeClass = TypeClass (ForeignPtr TypeClass)
+instance WrappedPtr TypeClass where
 data TypeClassPeekParentMethodInfo
 data TypeClassUnrefMethodInfo
diff --git a/GI/GObject/Structs/TypeFundamentalInfo.hs b/GI/GObject/Structs/TypeFundamentalInfo.hs
--- a/GI/GObject/Structs/TypeFundamentalInfo.hs
+++ b/GI/GObject/Structs/TypeFundamentalInfo.hs
@@ -40,9 +40,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeFundamentalInfo = TypeFundamentalInfo (ForeignPtr TypeFundamentalInfo)
+instance WrappedPtr TypeFundamentalInfo where
+    wrappedPtrCalloc = callocBytes 4
+    wrappedPtrCopy = copyPtr 4
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeFundamentalInfo` struct initialized to zero.
 newZeroTypeFundamentalInfo :: MonadIO m => m TypeFundamentalInfo
-newZeroTypeFundamentalInfo = liftIO $ callocBytes 4 >>= wrapPtr TypeFundamentalInfo
+newZeroTypeFundamentalInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeFundamentalInfo
 
 instance tag ~ 'AttrSet => Constructible TypeFundamentalInfo tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/TypeFundamentalInfo.hs-boot b/GI/GObject/Structs/TypeFundamentalInfo.hs-boot
--- a/GI/GObject/Structs/TypeFundamentalInfo.hs-boot
+++ b/GI/GObject/Structs/TypeFundamentalInfo.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypeFundamentalInfo = TypeFundamentalInfo (ForeignPtr TypeFundamentalInfo)
+instance WrappedPtr TypeFundamentalInfo where
diff --git a/GI/GObject/Structs/TypeInfo.hs b/GI/GObject/Structs/TypeInfo.hs
--- a/GI/GObject/Structs/TypeInfo.hs
+++ b/GI/GObject/Structs/TypeInfo.hs
@@ -73,9 +73,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeInfo = TypeInfo (ForeignPtr TypeInfo)
+instance WrappedPtr TypeInfo where
+    wrappedPtrCalloc = callocBytes 72
+    wrappedPtrCopy = copyPtr 72
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeInfo` struct initialized to zero.
 newZeroTypeInfo :: MonadIO m => m TypeInfo
-newZeroTypeInfo = liftIO $ callocBytes 72 >>= wrapPtr TypeInfo
+newZeroTypeInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeInfo
 
 instance tag ~ 'AttrSet => Constructible TypeInfo tag where
     new _ attrs = do
@@ -200,7 +205,7 @@
 typeInfoReadValueTable s = liftIO $ withManagedPtr s $ \ptr -> do
     val <- peek (ptr `plusPtr` 64) :: IO (Ptr TypeValueTable)
     result <- convertIfNonNull val $ \val' -> do
-        val'' <- (newPtr 64 TypeValueTable) val'
+        val'' <- (newPtr TypeValueTable) val'
         return val''
     return result
 
diff --git a/GI/GObject/Structs/TypeInfo.hs-boot b/GI/GObject/Structs/TypeInfo.hs-boot
--- a/GI/GObject/Structs/TypeInfo.hs-boot
+++ b/GI/GObject/Structs/TypeInfo.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypeInfo = TypeInfo (ForeignPtr TypeInfo)
+instance WrappedPtr TypeInfo where
diff --git a/GI/GObject/Structs/TypeInstance.hs b/GI/GObject/Structs/TypeInstance.hs
--- a/GI/GObject/Structs/TypeInstance.hs
+++ b/GI/GObject/Structs/TypeInstance.hs
@@ -30,9 +30,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeInstance = TypeInstance (ForeignPtr TypeInstance)
+instance WrappedPtr TypeInstance where
+    wrappedPtrCalloc = callocBytes 8
+    wrappedPtrCopy = copyPtr 8
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeInstance` struct initialized to zero.
 newZeroTypeInstance :: MonadIO m => m TypeInstance
-newZeroTypeInstance = liftIO $ callocBytes 8 >>= wrapPtr TypeInstance
+newZeroTypeInstance = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeInstance
 
 instance tag ~ 'AttrSet => Constructible TypeInstance tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/TypeInstance.hs-boot b/GI/GObject/Structs/TypeInstance.hs-boot
--- a/GI/GObject/Structs/TypeInstance.hs-boot
+++ b/GI/GObject/Structs/TypeInstance.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypeInstance = TypeInstance (ForeignPtr TypeInstance)
+instance WrappedPtr TypeInstance where
diff --git a/GI/GObject/Structs/TypeInterface.hs b/GI/GObject/Structs/TypeInterface.hs
--- a/GI/GObject/Structs/TypeInterface.hs
+++ b/GI/GObject/Structs/TypeInterface.hs
@@ -50,9 +50,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeInterface = TypeInterface (ForeignPtr TypeInterface)
+instance WrappedPtr TypeInterface where
+    wrappedPtrCalloc = callocBytes 16
+    wrappedPtrCopy = copyPtr 16
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeInterface` struct initialized to zero.
 newZeroTypeInterface :: MonadIO m => m TypeInterface
-newZeroTypeInterface = liftIO $ callocBytes 16 >>= wrapPtr TypeInterface
+newZeroTypeInterface = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeInterface
 
 instance tag ~ 'AttrSet => Constructible TypeInterface tag where
     new _ attrs = do
@@ -89,7 +94,7 @@
     let _obj' = unsafeManagedPtrGetPtr _obj
     result <- g_type_interface_peek_parent _obj'
     checkUnexpectedReturnNULL "g_type_interface_peek_parent" result
-    result' <- (newPtr 16 TypeInterface) result
+    result' <- (newPtr TypeInterface) result
     touchManagedPtr _obj
     return result'
 
@@ -148,7 +153,7 @@
     let ifaceType' = gtypeToCGType ifaceType
     result <- g_type_interface_peek instanceClass' ifaceType'
     checkUnexpectedReturnNULL "g_type_interface_peek" result
-    result' <- (newPtr 16 TypeInterface) result
+    result' <- (newPtr TypeInterface) result
     touchManagedPtr instanceClass
     return result'
 
diff --git a/GI/GObject/Structs/TypeInterface.hs-boot b/GI/GObject/Structs/TypeInterface.hs-boot
--- a/GI/GObject/Structs/TypeInterface.hs-boot
+++ b/GI/GObject/Structs/TypeInterface.hs-boot
@@ -8,4 +8,5 @@
 import qualified Data.Map as Map
 
 newtype TypeInterface = TypeInterface (ForeignPtr TypeInterface)
+instance WrappedPtr TypeInterface where
 data TypeInterfacePeekParentMethodInfo
diff --git a/GI/GObject/Structs/TypePluginClass.hs b/GI/GObject/Structs/TypePluginClass.hs
--- a/GI/GObject/Structs/TypePluginClass.hs
+++ b/GI/GObject/Structs/TypePluginClass.hs
@@ -31,9 +31,14 @@
 import GI.GObject.Callbacks
 
 newtype TypePluginClass = TypePluginClass (ForeignPtr TypePluginClass)
+instance WrappedPtr TypePluginClass where
+    wrappedPtrCalloc = callocBytes 48
+    wrappedPtrCopy = copyPtr 48
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypePluginClass` struct initialized to zero.
 newZeroTypePluginClass :: MonadIO m => m TypePluginClass
-newZeroTypePluginClass = liftIO $ callocBytes 48 >>= wrapPtr TypePluginClass
+newZeroTypePluginClass = liftIO $ wrappedPtrCalloc >>= wrapPtr TypePluginClass
 
 instance tag ~ 'AttrSet => Constructible TypePluginClass tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/TypePluginClass.hs-boot b/GI/GObject/Structs/TypePluginClass.hs-boot
--- a/GI/GObject/Structs/TypePluginClass.hs-boot
+++ b/GI/GObject/Structs/TypePluginClass.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypePluginClass = TypePluginClass (ForeignPtr TypePluginClass)
+instance WrappedPtr TypePluginClass where
diff --git a/GI/GObject/Structs/TypeQuery.hs b/GI/GObject/Structs/TypeQuery.hs
--- a/GI/GObject/Structs/TypeQuery.hs
+++ b/GI/GObject/Structs/TypeQuery.hs
@@ -59,9 +59,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeQuery = TypeQuery (ForeignPtr TypeQuery)
+instance WrappedPtr TypeQuery where
+    wrappedPtrCalloc = callocBytes 24
+    wrappedPtrCopy = copyPtr 24
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeQuery` struct initialized to zero.
 newZeroTypeQuery :: MonadIO m => m TypeQuery
-newZeroTypeQuery = liftIO $ callocBytes 24 >>= wrapPtr TypeQuery
+newZeroTypeQuery = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeQuery
 
 instance tag ~ 'AttrSet => Constructible TypeQuery tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/TypeQuery.hs-boot b/GI/GObject/Structs/TypeQuery.hs-boot
--- a/GI/GObject/Structs/TypeQuery.hs-boot
+++ b/GI/GObject/Structs/TypeQuery.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypeQuery = TypeQuery (ForeignPtr TypeQuery)
+instance WrappedPtr TypeQuery where
diff --git a/GI/GObject/Structs/TypeValueTable.hs b/GI/GObject/Structs/TypeValueTable.hs
--- a/GI/GObject/Structs/TypeValueTable.hs
+++ b/GI/GObject/Structs/TypeValueTable.hs
@@ -48,9 +48,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeValueTable = TypeValueTable (ForeignPtr TypeValueTable)
+instance WrappedPtr TypeValueTable where
+    wrappedPtrCalloc = callocBytes 64
+    wrappedPtrCopy = copyPtr 64
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeValueTable` struct initialized to zero.
 newZeroTypeValueTable :: MonadIO m => m TypeValueTable
-newZeroTypeValueTable = liftIO $ callocBytes 64 >>= wrapPtr TypeValueTable
+newZeroTypeValueTable = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeValueTable
 
 instance tag ~ 'AttrSet => Constructible TypeValueTable tag where
     new _ attrs = do
diff --git a/GI/GObject/Structs/TypeValueTable.hs-boot b/GI/GObject/Structs/TypeValueTable.hs-boot
--- a/GI/GObject/Structs/TypeValueTable.hs-boot
+++ b/GI/GObject/Structs/TypeValueTable.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypeValueTable = TypeValueTable (ForeignPtr TypeValueTable)
+instance WrappedPtr TypeValueTable where
diff --git a/GI/GObject/Structs/WeakRef.hs b/GI/GObject/Structs/WeakRef.hs
--- a/GI/GObject/Structs/WeakRef.hs
+++ b/GI/GObject/Structs/WeakRef.hs
@@ -48,6 +48,12 @@
 import GI.GObject.Callbacks
 
 newtype WeakRef = WeakRef (ForeignPtr WeakRef)
+-- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
+instance WrappedPtr WeakRef where
+    wrappedPtrCalloc = return nullPtr
+    wrappedPtrCopy = return
+    wrappedPtrFree = Nothing
+
 noWeakRef :: Maybe WeakRef
 noWeakRef = Nothing
 
diff --git a/GI/GObject/Structs/WeakRef.hs-boot b/GI/GObject/Structs/WeakRef.hs-boot
--- a/GI/GObject/Structs/WeakRef.hs-boot
+++ b/GI/GObject/Structs/WeakRef.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype WeakRef = WeakRef (ForeignPtr WeakRef)
+instance WrappedPtr WeakRef where
diff --git a/GI/GObject/Unions/TypeCValue.hs b/GI/GObject/Unions/TypeCValue.hs
--- a/GI/GObject/Unions/TypeCValue.hs
+++ b/GI/GObject/Unions/TypeCValue.hs
@@ -62,9 +62,14 @@
 import GI.GObject.Callbacks
 
 newtype TypeCValue = TypeCValue (ForeignPtr TypeCValue)
+instance WrappedPtr TypeCValue where
+    wrappedPtrCalloc = callocBytes 8
+    wrappedPtrCopy = copyPtr 8
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `TypeCValue` struct initialized to zero.
 newZeroTypeCValue :: MonadIO m => m TypeCValue
-newZeroTypeCValue = liftIO $ callocBytes 8 >>= wrapPtr TypeCValue
+newZeroTypeCValue = liftIO $ wrappedPtrCalloc >>= wrapPtr TypeCValue
 
 instance tag ~ 'AttrSet => Constructible TypeCValue tag where
     new _ attrs = do
diff --git a/GI/GObject/Unions/TypeCValue.hs-boot b/GI/GObject/Unions/TypeCValue.hs-boot
--- a/GI/GObject/Unions/TypeCValue.hs-boot
+++ b/GI/GObject/Unions/TypeCValue.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype TypeCValue = TypeCValue (ForeignPtr TypeCValue)
+instance WrappedPtr TypeCValue where
diff --git a/GI/GObject/Unions/Value_Data_Union_.hs b/GI/GObject/Unions/Value_Data_Union_.hs
--- a/GI/GObject/Unions/Value_Data_Union_.hs
+++ b/GI/GObject/Unions/Value_Data_Union_.hs
@@ -86,9 +86,14 @@
 import GI.GObject.Callbacks
 
 newtype Value_Data_Union_ = Value_Data_Union_ (ForeignPtr Value_Data_Union_)
+instance WrappedPtr Value_Data_Union_ where
+    wrappedPtrCalloc = callocBytes 8
+    wrappedPtrCopy = copyPtr 8
+    wrappedPtrFree = Just ptr_to_g_free
+
 -- | Construct a `Value_Data_Union_` struct initialized to zero.
 newZeroValue_Data_Union_ :: MonadIO m => m Value_Data_Union_
-newZeroValue_Data_Union_ = liftIO $ callocBytes 8 >>= wrapPtr Value_Data_Union_
+newZeroValue_Data_Union_ = liftIO $ wrappedPtrCalloc >>= wrapPtr Value_Data_Union_
 
 instance tag ~ 'AttrSet => Constructible Value_Data_Union_ tag where
     new _ attrs = do
diff --git a/GI/GObject/Unions/Value_Data_Union_.hs-boot b/GI/GObject/Unions/Value_Data_Union_.hs-boot
--- a/GI/GObject/Unions/Value_Data_Union_.hs-boot
+++ b/GI/GObject/Unions/Value_Data_Union_.hs-boot
@@ -8,3 +8,4 @@
 import qualified Data.Map as Map
 
 newtype Value_Data_Union_ = Value_Data_Union_ (ForeignPtr Value_Data_Union_)
+instance WrappedPtr Value_Data_Union_ where
diff --git a/gi-gobject.cabal b/gi-gobject.cabal
--- a/gi-gobject.cabal
+++ b/gi-gobject.cabal
@@ -1,6 +1,6 @@
 -- Autogenerated, do not edit.
 name:               gi-gobject
-version:            0.2.46.14
+version:            0.2.46.15
 synopsis:           GObject bindings
 description:        Bindings for GObject, autogenerated by haskell-gi.
 homepage:           https://github.com/haskell-gi/haskell-gi
@@ -59,8 +59,8 @@
                         GI.GObject.Unions.Value_Data_Union_
     pkgconfig-depends:  gobject-2.0 >= 2.46
     build-depends: base >= 4.7 && <5,
-        haskell-gi-base >= 0.14 && < 1,
-        gi-glib >= 0.2.46.14 && < 0.2.47,
+        haskell-gi-base >= 0.15 && < 1,
+        gi-glib >= 0.2.46.15 && < 0.2.47,
         bytestring >= 0.10,
         containers >= 0.5,
         text >= 1.0,