#if !MIN_VERSION_base(4,8,0)
#endif
module Data.GI.Base.Constructible
( Constructible(..)
) where
import Foreign (ForeignPtr)
import Control.Monad.IO.Class (MonadIO)
import Data.GI.Base.Attributes (AttrOp, AttrOpTag(..))
import Data.GI.Base.BasicTypes (GObject)
import Data.GI.Base.GObject (constructGObject)
class Constructible a (tag :: AttrOpTag) where
new :: MonadIO m => (ForeignPtr a -> a) -> [AttrOp a tag] -> m a
instance
#if MIN_VERSION_base(4,8,0)
#endif
(GObject a, tag ~ 'AttrConstruct) => Constructible a tag where
new = constructGObject