{-# 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