simple-cairo-0.1.0.5: src/Data/CairoContext.hs

{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Data.CairoContext where

import Foreign.Ptr
import Foreign.ForeignPtr
import Control.Monad.Primitive

newtype CairoT r s = CairoT (ForeignPtr (CairoT r s)) deriving Show

type CairoTIO r = CairoT r RealWorld

withCairoT :: PrimMonad m => CairoT r (PrimState m) -> (Ptr (CairoT r (PrimState m)) -> IO a) -> m a
withCairoT (CairoT fcr) = unsafeIOToPrim . withForeignPtr fcr