{-# LINE 1 "src/Graphics/Cairo/Surfaces/PdfSurfaces/Template.hsc" #-}
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Graphics.Cairo.Surfaces.PdfSurfaces.Template where

import Language.Haskell.TH
import Data.Word
import Graphics.Cairo.Template



newtype CairoPdfOutlineFlagsT = CairoPdfOutlineFlagsT Word32 deriving Int -> CairoPdfOutlineFlagsT -> ShowS
[CairoPdfOutlineFlagsT] -> ShowS
CairoPdfOutlineFlagsT -> String
(Int -> CairoPdfOutlineFlagsT -> ShowS)
-> (CairoPdfOutlineFlagsT -> String)
-> ([CairoPdfOutlineFlagsT] -> ShowS)
-> Show CairoPdfOutlineFlagsT
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CairoPdfOutlineFlagsT -> ShowS
showsPrec :: Int -> CairoPdfOutlineFlagsT -> ShowS
$cshow :: CairoPdfOutlineFlagsT -> String
show :: CairoPdfOutlineFlagsT -> String
$cshowList :: [CairoPdfOutlineFlagsT] -> ShowS
showList :: [CairoPdfOutlineFlagsT] -> ShowS
Show
{-# LINE 13 "src/Graphics/Cairo/Surfaces/PdfSurfaces/Template.hsc" #-}

mkOFlag :: String -> Integer -> DecsQ
mkOFlag :: String -> Integer -> DecsQ
mkOFlag = Name -> Name -> String -> Integer -> DecsQ
mkMemberGen ''CairoPdfOutlineFlagsT 'CairoPdfOutlineFlagsT

newtype CairoPdfMetadataT = CairoPdfMetadataT Word32 deriving Int -> CairoPdfMetadataT -> ShowS
[CairoPdfMetadataT] -> ShowS
CairoPdfMetadataT -> String
(Int -> CairoPdfMetadataT -> ShowS)
-> (CairoPdfMetadataT -> String)
-> ([CairoPdfMetadataT] -> ShowS)
-> Show CairoPdfMetadataT
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CairoPdfMetadataT -> ShowS
showsPrec :: Int -> CairoPdfMetadataT -> ShowS
$cshow :: CairoPdfMetadataT -> String
show :: CairoPdfMetadataT -> String
$cshowList :: [CairoPdfMetadataT] -> ShowS
showList :: [CairoPdfMetadataT] -> ShowS
Show
{-# LINE 18 "src/Graphics/Cairo/Surfaces/PdfSurfaces/Template.hsc" #-}

mkMeta :: String -> Integer -> DecsQ
mkMeta :: String -> Integer -> DecsQ
mkMeta = Name -> Name -> String -> Integer -> DecsQ
mkMemberGen ''CairoPdfMetadataT 'CairoPdfMetadataT

newtype CairoPdfVersionT = CairoPdfVersionT Word32 deriving Int -> CairoPdfVersionT -> ShowS
[CairoPdfVersionT] -> ShowS
CairoPdfVersionT -> String
(Int -> CairoPdfVersionT -> ShowS)
-> (CairoPdfVersionT -> String)
-> ([CairoPdfVersionT] -> ShowS)
-> Show CairoPdfVersionT
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CairoPdfVersionT -> ShowS
showsPrec :: Int -> CairoPdfVersionT -> ShowS
$cshow :: CairoPdfVersionT -> String
show :: CairoPdfVersionT -> String
$cshowList :: [CairoPdfVersionT] -> ShowS
showList :: [CairoPdfVersionT] -> ShowS
Show
{-# LINE 23 "src/Graphics/Cairo/Surfaces/PdfSurfaces/Template.hsc" #-}

mkVersion :: String -> Integer -> DecsQ
mkVersion :: String -> Integer -> DecsQ
mkVersion = Name -> Name -> String -> Integer -> DecsQ
mkMemberGen ''CairoPdfVersionT 'CairoPdfVersionT