{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module HROOT.Core.TAttFill.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawTAttFill

newtype TAttFill = TAttFill (Ptr RawTAttFill)
                     deriving (TAttFill -> TAttFill -> Bool
(TAttFill -> TAttFill -> Bool)
-> (TAttFill -> TAttFill -> Bool) -> Eq TAttFill
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TAttFill -> TAttFill -> Bool
== :: TAttFill -> TAttFill -> Bool
$c/= :: TAttFill -> TAttFill -> Bool
/= :: TAttFill -> TAttFill -> Bool
Eq, Eq TAttFill
Eq TAttFill
-> (TAttFill -> TAttFill -> Ordering)
-> (TAttFill -> TAttFill -> Bool)
-> (TAttFill -> TAttFill -> Bool)
-> (TAttFill -> TAttFill -> Bool)
-> (TAttFill -> TAttFill -> Bool)
-> (TAttFill -> TAttFill -> TAttFill)
-> (TAttFill -> TAttFill -> TAttFill)
-> Ord TAttFill
TAttFill -> TAttFill -> Bool
TAttFill -> TAttFill -> Ordering
TAttFill -> TAttFill -> TAttFill
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: TAttFill -> TAttFill -> Ordering
compare :: TAttFill -> TAttFill -> Ordering
$c< :: TAttFill -> TAttFill -> Bool
< :: TAttFill -> TAttFill -> Bool
$c<= :: TAttFill -> TAttFill -> Bool
<= :: TAttFill -> TAttFill -> Bool
$c> :: TAttFill -> TAttFill -> Bool
> :: TAttFill -> TAttFill -> Bool
$c>= :: TAttFill -> TAttFill -> Bool
>= :: TAttFill -> TAttFill -> Bool
$cmax :: TAttFill -> TAttFill -> TAttFill
max :: TAttFill -> TAttFill -> TAttFill
$cmin :: TAttFill -> TAttFill -> TAttFill
min :: TAttFill -> TAttFill -> TAttFill
Ord, Int -> TAttFill -> ShowS
[TAttFill] -> ShowS
TAttFill -> String
(Int -> TAttFill -> ShowS)
-> (TAttFill -> String) -> ([TAttFill] -> ShowS) -> Show TAttFill
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TAttFill -> ShowS
showsPrec :: Int -> TAttFill -> ShowS
$cshow :: TAttFill -> String
show :: TAttFill -> String
$cshowList :: [TAttFill] -> ShowS
showList :: [TAttFill] -> ShowS
Show)

instance () => FPtr (TAttFill) where
        type Raw TAttFill = RawTAttFill
        get_fptr :: TAttFill -> Ptr (Raw TAttFill)
get_fptr (TAttFill Ptr RawTAttFill
ptr) = Ptr (Raw TAttFill)
Ptr RawTAttFill
ptr
        cast_fptr_to_obj :: Ptr (Raw TAttFill) -> TAttFill
cast_fptr_to_obj = Ptr (Raw TAttFill) -> TAttFill
Ptr RawTAttFill -> TAttFill
TAttFill