{-# LINE 1 "src/Graphics/Cairo/Surfaces/CairoSurfaceTypeT/Template.hsc" #-} {-# LANGUAGE TemplateHaskell #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Graphics.Cairo.Surfaces.CairoSurfaceTypeT.Template where import Language.Haskell.TH import Data.Word import Graphics.Cairo.Template newtype CairoSurfaceTypeT = CairoSurfaceTypeT Word32 deriving Int -> CairoSurfaceTypeT -> ShowS [CairoSurfaceTypeT] -> ShowS CairoSurfaceTypeT -> String (Int -> CairoSurfaceTypeT -> ShowS) -> (CairoSurfaceTypeT -> String) -> ([CairoSurfaceTypeT] -> ShowS) -> Show CairoSurfaceTypeT forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> CairoSurfaceTypeT -> ShowS showsPrec :: Int -> CairoSurfaceTypeT -> ShowS $cshow :: CairoSurfaceTypeT -> String show :: CairoSurfaceTypeT -> String $cshowList :: [CairoSurfaceTypeT] -> ShowS showList :: [CairoSurfaceTypeT] -> ShowS Show {-# LINE 14 "src/Graphics/Cairo/Surfaces/CairoSurfaceTypeT/Template.hsc" #-} mkMember :: String -> Integer -> DecsQ mkMember :: String -> Integer -> DecsQ mkMember = Name -> Name -> String -> Integer -> DecsQ mkMemberGen ''CairoSurfaceTypeT 'CairoSurfaceTypeT