module Termbox.Bindings.Hs.Internal.OutputMode
( Tb_output_mode
( Tb_output_mode,
TB_OUTPUT_216,
TB_OUTPUT_256,
TB_OUTPUT_GRAYSCALE,
TB_OUTPUT_NORMAL
),
)
where
import Foreign.C.Types (CInt)
import Termbox.Bindings.C
( _TB_OUTPUT_216,
_TB_OUTPUT_256,
_TB_OUTPUT_GRAYSCALE,
_TB_OUTPUT_NORMAL,
)
newtype Tb_output_mode
= Tb_output_mode CInt
deriving stock (Tb_output_mode -> Tb_output_mode -> Bool
(Tb_output_mode -> Tb_output_mode -> Bool)
-> (Tb_output_mode -> Tb_output_mode -> Bool) -> Eq Tb_output_mode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Tb_output_mode -> Tb_output_mode -> Bool
== :: Tb_output_mode -> Tb_output_mode -> Bool
$c/= :: Tb_output_mode -> Tb_output_mode -> Bool
/= :: Tb_output_mode -> Tb_output_mode -> Bool
Eq)
instance Show Tb_output_mode where
show :: Tb_output_mode -> String
show = \case
Tb_output_mode
TB_OUTPUT_216 -> String
"TB_OUTPUT_216"
Tb_output_mode
TB_OUTPUT_256 -> String
"TB_OUTPUT_256"
Tb_output_mode
TB_OUTPUT_GRAYSCALE -> String
"TB_OUTPUT_GRAYSCALE"
Tb_output_mode
TB_OUTPUT_NORMAL -> String
"TB_OUTPUT_NORMAL"
pattern TB_OUTPUT_216 :: Tb_output_mode
pattern $mTB_OUTPUT_216 :: forall {r}. Tb_output_mode -> ((# #) -> r) -> ((# #) -> r) -> r
$bTB_OUTPUT_216 :: Tb_output_mode
TB_OUTPUT_216 <-
((== Tb_output_mode _TB_OUTPUT_216) -> True)
where
TB_OUTPUT_216 = CInt -> Tb_output_mode
Tb_output_mode CInt
_TB_OUTPUT_216
pattern TB_OUTPUT_256 :: Tb_output_mode
pattern $mTB_OUTPUT_256 :: forall {r}. Tb_output_mode -> ((# #) -> r) -> ((# #) -> r) -> r
$bTB_OUTPUT_256 :: Tb_output_mode
TB_OUTPUT_256 <-
((== Tb_output_mode _TB_OUTPUT_256) -> True)
where
TB_OUTPUT_256 = CInt -> Tb_output_mode
Tb_output_mode CInt
_TB_OUTPUT_256
pattern TB_OUTPUT_GRAYSCALE :: Tb_output_mode
pattern $mTB_OUTPUT_GRAYSCALE :: forall {r}. Tb_output_mode -> ((# #) -> r) -> ((# #) -> r) -> r
$bTB_OUTPUT_GRAYSCALE :: Tb_output_mode
TB_OUTPUT_GRAYSCALE <-
((== Tb_output_mode _TB_OUTPUT_GRAYSCALE) -> True)
where
TB_OUTPUT_GRAYSCALE = CInt -> Tb_output_mode
Tb_output_mode CInt
_TB_OUTPUT_GRAYSCALE
pattern TB_OUTPUT_NORMAL :: Tb_output_mode
pattern $mTB_OUTPUT_NORMAL :: forall {r}. Tb_output_mode -> ((# #) -> r) -> ((# #) -> r) -> r
$bTB_OUTPUT_NORMAL :: Tb_output_mode
TB_OUTPUT_NORMAL <-
((== Tb_output_mode _TB_OUTPUT_NORMAL) -> True)
where
TB_OUTPUT_NORMAL = CInt -> Tb_output_mode
Tb_output_mode CInt
_TB_OUTPUT_NORMAL
{-# COMPLETE TB_OUTPUT_216, TB_OUTPUT_256, TB_OUTPUT_GRAYSCALE, TB_OUTPUT_NORMAL #-}