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

data RawTHttpServer

newtype THttpServer = THttpServer (Ptr RawTHttpServer)
                        deriving (THttpServer -> THttpServer -> Bool
(THttpServer -> THttpServer -> Bool)
-> (THttpServer -> THttpServer -> Bool) -> Eq THttpServer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: THttpServer -> THttpServer -> Bool
== :: THttpServer -> THttpServer -> Bool
$c/= :: THttpServer -> THttpServer -> Bool
/= :: THttpServer -> THttpServer -> Bool
Eq, Eq THttpServer
Eq THttpServer
-> (THttpServer -> THttpServer -> Ordering)
-> (THttpServer -> THttpServer -> Bool)
-> (THttpServer -> THttpServer -> Bool)
-> (THttpServer -> THttpServer -> Bool)
-> (THttpServer -> THttpServer -> Bool)
-> (THttpServer -> THttpServer -> THttpServer)
-> (THttpServer -> THttpServer -> THttpServer)
-> Ord THttpServer
THttpServer -> THttpServer -> Bool
THttpServer -> THttpServer -> Ordering
THttpServer -> THttpServer -> THttpServer
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 :: THttpServer -> THttpServer -> Ordering
compare :: THttpServer -> THttpServer -> Ordering
$c< :: THttpServer -> THttpServer -> Bool
< :: THttpServer -> THttpServer -> Bool
$c<= :: THttpServer -> THttpServer -> Bool
<= :: THttpServer -> THttpServer -> Bool
$c> :: THttpServer -> THttpServer -> Bool
> :: THttpServer -> THttpServer -> Bool
$c>= :: THttpServer -> THttpServer -> Bool
>= :: THttpServer -> THttpServer -> Bool
$cmax :: THttpServer -> THttpServer -> THttpServer
max :: THttpServer -> THttpServer -> THttpServer
$cmin :: THttpServer -> THttpServer -> THttpServer
min :: THttpServer -> THttpServer -> THttpServer
Ord, Int -> THttpServer -> ShowS
[THttpServer] -> ShowS
THttpServer -> String
(Int -> THttpServer -> ShowS)
-> (THttpServer -> String)
-> ([THttpServer] -> ShowS)
-> Show THttpServer
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> THttpServer -> ShowS
showsPrec :: Int -> THttpServer -> ShowS
$cshow :: THttpServer -> String
show :: THttpServer -> String
$cshowList :: [THttpServer] -> ShowS
showList :: [THttpServer] -> ShowS
Show)

instance () => FPtr (THttpServer) where
        type Raw THttpServer = RawTHttpServer
        get_fptr :: THttpServer -> Ptr (Raw THttpServer)
get_fptr (THttpServer Ptr RawTHttpServer
ptr) = Ptr (Raw THttpServer)
Ptr RawTHttpServer
ptr
        cast_fptr_to_obj :: Ptr (Raw THttpServer) -> THttpServer
cast_fptr_to_obj = Ptr (Raw THttpServer) -> THttpServer
Ptr RawTHttpServer -> THttpServer
THttpServer