cairo-core-1.16.3: src/Graphics/Cairo/HasStatus.hs

module Graphics.Cairo.HasStatus where

import Control.Exception
import Control.Monad
import Graphics.Cairo.Types
import Graphics.Cairo.Utilities.ErrorHandling

class HasStatus a where
  status :: a -> IO Status
  use :: a -> (a -> IO b) -> IO b
  use a = bracket (return a) (failStatus <=< status)