{-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Graphics.Cairo.Drawing.CairoT.SaveAndRestore where import Foreign.Ptr import Control.Monad.Primitive import Data.CairoContext cairoSave :: PrimMonad m => CairoT r (PrimState m) -> m () cairoSave :: forall (m :: * -> *) r. PrimMonad m => CairoT r (PrimState m) -> m () cairoSave = (CairoT r (PrimState m) -> (Ptr (CairoT r (PrimState m)) -> IO ()) -> m () forall (m :: * -> *) r a. PrimMonad m => CairoT r (PrimState m) -> (Ptr (CairoT r (PrimState m)) -> IO a) -> m a `withCairoT` Ptr (CairoT r (PrimState m)) -> IO () forall r s. Ptr (CairoT r s) -> IO () c_cairo_save) foreign import ccall "cairo_save" c_cairo_save :: Ptr (CairoT r s) -> IO () cairoRestore :: PrimMonad m => CairoT r (PrimState m) -> m () cairoRestore :: forall (m :: * -> *) r. PrimMonad m => CairoT r (PrimState m) -> m () cairoRestore = (CairoT r (PrimState m) -> (Ptr (CairoT r (PrimState m)) -> IO ()) -> m () forall (m :: * -> *) r a. PrimMonad m => CairoT r (PrimState m) -> (Ptr (CairoT r (PrimState m)) -> IO a) -> m a `withCairoT` Ptr (CairoT r (PrimState m)) -> IO () forall r s. Ptr (CairoT r s) -> IO () c_cairo_restore) foreign import ccall "cairo_restore" c_cairo_restore :: Ptr (CairoT r s) -> IO ()