#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Enums
(
AddressFamily(..) ,
CacheResponse(..) ,
CacheType(..) ,
ConnectionState(..) ,
CookieJarAcceptPolicy(..) ,
DateFormat(..) ,
Encoding(..) ,
HTTPVersion(..) ,
KnownStatusCode(..) ,
LoggerLogLevel(..) ,
MemoryUse(..) ,
MessageHeadersType(..) ,
MessagePriority(..) ,
RequestError(..) ,
catchRequestError ,
handleRequestError ,
RequesterError(..) ,
catchRequesterError ,
handleRequesterError ,
SameSitePolicy(..) ,
SocketIOStatus(..) ,
Status(..) ,
TLDError(..) ,
catchTLDError ,
handleTLDError ,
WebsocketCloseCode(..) ,
WebsocketConnectionType(..) ,
WebsocketDataType(..) ,
WebsocketError(..) ,
WebsocketState(..) ,
XMLRPCError(..) ,
catchXMLRPCError ,
handleXMLRPCError ,
XMLRPCFault(..) ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
data XMLRPCFault =
XMLRPCFaultParseErrorNotWellFormed
| XMLRPCFaultParseErrorUnsupportedEncoding
| XMLRPCFaultParseErrorInvalidCharacterForEncoding
| XMLRPCFaultServerErrorInvalidXmlRpc
| XMLRPCFaultServerErrorRequestedMethodNotFound
| XMLRPCFaultServerErrorInvalidMethodParameters
| XMLRPCFaultServerErrorInternalXmlRpcError
| XMLRPCFaultApplicationError
| XMLRPCFaultSystemError
| XMLRPCFaultTransportError
| AnotherXMLRPCFault Int
deriving (Int -> XMLRPCFault -> ShowS
[XMLRPCFault] -> ShowS
XMLRPCFault -> String
(Int -> XMLRPCFault -> ShowS)
-> (XMLRPCFault -> String)
-> ([XMLRPCFault] -> ShowS)
-> Show XMLRPCFault
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> XMLRPCFault -> ShowS
showsPrec :: Int -> XMLRPCFault -> ShowS
$cshow :: XMLRPCFault -> String
show :: XMLRPCFault -> String
$cshowList :: [XMLRPCFault] -> ShowS
showList :: [XMLRPCFault] -> ShowS
Show, XMLRPCFault -> XMLRPCFault -> Bool
(XMLRPCFault -> XMLRPCFault -> Bool)
-> (XMLRPCFault -> XMLRPCFault -> Bool) -> Eq XMLRPCFault
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: XMLRPCFault -> XMLRPCFault -> Bool
== :: XMLRPCFault -> XMLRPCFault -> Bool
$c/= :: XMLRPCFault -> XMLRPCFault -> Bool
/= :: XMLRPCFault -> XMLRPCFault -> Bool
Eq)
instance P.Enum XMLRPCFault where
fromEnum :: XMLRPCFault -> Int
fromEnum XMLRPCFault
XMLRPCFaultParseErrorNotWellFormed = Int
-32700
fromEnum XMLRPCFault
XMLRPCFaultParseErrorUnsupportedEncoding = Int
-32701
fromEnum XMLRPCFault
XMLRPCFaultParseErrorInvalidCharacterForEncoding = Int
-32702
fromEnum XMLRPCFault
XMLRPCFaultServerErrorInvalidXmlRpc = Int
-32600
fromEnum XMLRPCFault
XMLRPCFaultServerErrorRequestedMethodNotFound = Int
-32601
fromEnum XMLRPCFault
XMLRPCFaultServerErrorInvalidMethodParameters = Int
-32602
fromEnum XMLRPCFault
XMLRPCFaultServerErrorInternalXmlRpcError = Int
-32603
fromEnum XMLRPCFault
XMLRPCFaultApplicationError = Int
-32500
fromEnum XMLRPCFault
XMLRPCFaultSystemError = Int
-32400
fromEnum XMLRPCFault
XMLRPCFaultTransportError = Int
-32300
fromEnum (AnotherXMLRPCFault Int
k) = Int
k
toEnum :: Int -> XMLRPCFault
toEnum Int
-32700 = XMLRPCFault
XMLRPCFaultParseErrorNotWellFormed
toEnum Int
-32701 = XMLRPCFault
XMLRPCFaultParseErrorUnsupportedEncoding
toEnum Int
-32702 = XMLRPCFault
XMLRPCFaultParseErrorInvalidCharacterForEncoding
toEnum Int
-32600 = XMLRPCFault
XMLRPCFaultServerErrorInvalidXmlRpc
toEnum Int
-32601 = XMLRPCFault
XMLRPCFaultServerErrorRequestedMethodNotFound
toEnum Int
-32602 = XMLRPCFault
XMLRPCFaultServerErrorInvalidMethodParameters
toEnum Int
-32603 = XMLRPCFault
XMLRPCFaultServerErrorInternalXmlRpcError
toEnum Int
-32500 = XMLRPCFault
XMLRPCFaultApplicationError
toEnum Int
-32400 = XMLRPCFault
XMLRPCFaultSystemError
toEnum Int
-32300 = XMLRPCFault
XMLRPCFaultTransportError
toEnum Int
k = Int -> XMLRPCFault
AnotherXMLRPCFault Int
k
instance P.Ord XMLRPCFault where
compare :: XMLRPCFault -> XMLRPCFault -> Ordering
compare XMLRPCFault
a XMLRPCFault
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (XMLRPCFault -> Int
forall a. Enum a => a -> Int
P.fromEnum XMLRPCFault
a) (XMLRPCFault -> Int
forall a. Enum a => a -> Int
P.fromEnum XMLRPCFault
b)
type instance O.ParentTypes XMLRPCFault = '[]
instance O.HasParentTypes XMLRPCFault
foreign import ccall "soup_xmlrpc_fault_get_type" c_soup_xmlrpc_fault_get_type ::
IO GType
instance B.Types.TypedObject XMLRPCFault where
glibType :: IO GType
glibType = IO GType
c_soup_xmlrpc_fault_get_type
instance B.Types.BoxedEnum XMLRPCFault
data XMLRPCError =
XMLRPCErrorArguments
| XMLRPCErrorRetval
| AnotherXMLRPCError Int
deriving (Int -> XMLRPCError -> ShowS
[XMLRPCError] -> ShowS
XMLRPCError -> String
(Int -> XMLRPCError -> ShowS)
-> (XMLRPCError -> String)
-> ([XMLRPCError] -> ShowS)
-> Show XMLRPCError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> XMLRPCError -> ShowS
showsPrec :: Int -> XMLRPCError -> ShowS
$cshow :: XMLRPCError -> String
show :: XMLRPCError -> String
$cshowList :: [XMLRPCError] -> ShowS
showList :: [XMLRPCError] -> ShowS
Show, XMLRPCError -> XMLRPCError -> Bool
(XMLRPCError -> XMLRPCError -> Bool)
-> (XMLRPCError -> XMLRPCError -> Bool) -> Eq XMLRPCError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: XMLRPCError -> XMLRPCError -> Bool
== :: XMLRPCError -> XMLRPCError -> Bool
$c/= :: XMLRPCError -> XMLRPCError -> Bool
/= :: XMLRPCError -> XMLRPCError -> Bool
Eq)
instance P.Enum XMLRPCError where
fromEnum :: XMLRPCError -> Int
fromEnum XMLRPCError
XMLRPCErrorArguments = Int
0
fromEnum XMLRPCError
XMLRPCErrorRetval = Int
1
fromEnum (AnotherXMLRPCError Int
k) = Int
k
toEnum :: Int -> XMLRPCError
toEnum Int
0 = XMLRPCError
XMLRPCErrorArguments
toEnum Int
1 = XMLRPCError
XMLRPCErrorRetval
toEnum Int
k = Int -> XMLRPCError
AnotherXMLRPCError Int
k
instance P.Ord XMLRPCError where
compare :: XMLRPCError -> XMLRPCError -> Ordering
compare XMLRPCError
a XMLRPCError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (XMLRPCError -> Int
forall a. Enum a => a -> Int
P.fromEnum XMLRPCError
a) (XMLRPCError -> Int
forall a. Enum a => a -> Int
P.fromEnum XMLRPCError
b)
instance GErrorClass XMLRPCError where
gerrorClassDomain :: XMLRPCError -> Text
gerrorClassDomain XMLRPCError
_ = Text
"soup_xmlrpc_error_quark"
catchXMLRPCError ::
IO a ->
(XMLRPCError -> GErrorMessage -> IO a) ->
IO a
catchXMLRPCError :: forall a. IO a -> (XMLRPCError -> Text -> IO a) -> IO a
catchXMLRPCError = IO a -> (XMLRPCError -> Text -> IO a) -> IO a
forall err a.
GErrorClass err =>
IO a -> (err -> Text -> IO a) -> IO a
catchGErrorJustDomain
handleXMLRPCError ::
(XMLRPCError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleXMLRPCError :: forall a. (XMLRPCError -> Text -> IO a) -> IO a -> IO a
handleXMLRPCError = (XMLRPCError -> Text -> IO a) -> IO a -> IO a
forall err a.
GErrorClass err =>
(err -> Text -> IO a) -> IO a -> IO a
handleGErrorJustDomain
type instance O.ParentTypes XMLRPCError = '[]
instance O.HasParentTypes XMLRPCError
foreign import ccall "soup_xmlrpc_error_get_type" c_soup_xmlrpc_error_get_type ::
IO GType
instance B.Types.TypedObject XMLRPCError where
glibType :: IO GType
glibType = IO GType
c_soup_xmlrpc_error_get_type
instance B.Types.BoxedEnum XMLRPCError
data WebsocketState =
WebsocketStateOpen
| WebsocketStateClosing
| WebsocketStateClosed
| AnotherWebsocketState Int
deriving (Int -> WebsocketState -> ShowS
[WebsocketState] -> ShowS
WebsocketState -> String
(Int -> WebsocketState -> ShowS)
-> (WebsocketState -> String)
-> ([WebsocketState] -> ShowS)
-> Show WebsocketState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebsocketState -> ShowS
showsPrec :: Int -> WebsocketState -> ShowS
$cshow :: WebsocketState -> String
show :: WebsocketState -> String
$cshowList :: [WebsocketState] -> ShowS
showList :: [WebsocketState] -> ShowS
Show, WebsocketState -> WebsocketState -> Bool
(WebsocketState -> WebsocketState -> Bool)
-> (WebsocketState -> WebsocketState -> Bool) -> Eq WebsocketState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebsocketState -> WebsocketState -> Bool
== :: WebsocketState -> WebsocketState -> Bool
$c/= :: WebsocketState -> WebsocketState -> Bool
/= :: WebsocketState -> WebsocketState -> Bool
Eq)
instance P.Enum WebsocketState where
fromEnum :: WebsocketState -> Int
fromEnum WebsocketState
WebsocketStateOpen = Int
1
fromEnum WebsocketState
WebsocketStateClosing = Int
2
fromEnum WebsocketState
WebsocketStateClosed = Int
3
fromEnum (AnotherWebsocketState Int
k) = Int
k
toEnum :: Int -> WebsocketState
toEnum Int
1 = WebsocketState
WebsocketStateOpen
toEnum Int
2 = WebsocketState
WebsocketStateClosing
toEnum Int
3 = WebsocketState
WebsocketStateClosed
toEnum Int
k = Int -> WebsocketState
AnotherWebsocketState Int
k
instance P.Ord WebsocketState where
compare :: WebsocketState -> WebsocketState -> Ordering
compare WebsocketState
a WebsocketState
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WebsocketState -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketState
a) (WebsocketState -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketState
b)
type instance O.ParentTypes WebsocketState = '[]
instance O.HasParentTypes WebsocketState
foreign import ccall "soup_websocket_state_get_type" c_soup_websocket_state_get_type ::
IO GType
instance B.Types.TypedObject WebsocketState where
glibType :: IO GType
glibType = IO GType
c_soup_websocket_state_get_type
instance B.Types.BoxedEnum WebsocketState
data WebsocketError =
WebsocketErrorFailed
| WebsocketErrorNotWebsocket
| WebsocketErrorBadHandshake
| WebsocketErrorBadOrigin
| AnotherWebsocketError Int
deriving (Int -> WebsocketError -> ShowS
[WebsocketError] -> ShowS
WebsocketError -> String
(Int -> WebsocketError -> ShowS)
-> (WebsocketError -> String)
-> ([WebsocketError] -> ShowS)
-> Show WebsocketError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebsocketError -> ShowS
showsPrec :: Int -> WebsocketError -> ShowS
$cshow :: WebsocketError -> String
show :: WebsocketError -> String
$cshowList :: [WebsocketError] -> ShowS
showList :: [WebsocketError] -> ShowS
Show, WebsocketError -> WebsocketError -> Bool
(WebsocketError -> WebsocketError -> Bool)
-> (WebsocketError -> WebsocketError -> Bool) -> Eq WebsocketError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebsocketError -> WebsocketError -> Bool
== :: WebsocketError -> WebsocketError -> Bool
$c/= :: WebsocketError -> WebsocketError -> Bool
/= :: WebsocketError -> WebsocketError -> Bool
Eq)
instance P.Enum WebsocketError where
fromEnum :: WebsocketError -> Int
fromEnum WebsocketError
WebsocketErrorFailed = Int
0
fromEnum WebsocketError
WebsocketErrorNotWebsocket = Int
1
fromEnum WebsocketError
WebsocketErrorBadHandshake = Int
2
fromEnum WebsocketError
WebsocketErrorBadOrigin = Int
3
fromEnum (AnotherWebsocketError Int
k) = Int
k
toEnum :: Int -> WebsocketError
toEnum Int
0 = WebsocketError
WebsocketErrorFailed
toEnum Int
1 = WebsocketError
WebsocketErrorNotWebsocket
toEnum Int
2 = WebsocketError
WebsocketErrorBadHandshake
toEnum Int
3 = WebsocketError
WebsocketErrorBadOrigin
toEnum Int
k = Int -> WebsocketError
AnotherWebsocketError Int
k
instance P.Ord WebsocketError where
compare :: WebsocketError -> WebsocketError -> Ordering
compare WebsocketError
a WebsocketError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WebsocketError -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketError
a) (WebsocketError -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketError
b)
type instance O.ParentTypes WebsocketError = '[]
instance O.HasParentTypes WebsocketError
foreign import ccall "soup_websocket_error_get_type" c_soup_websocket_error_get_type ::
IO GType
instance B.Types.TypedObject WebsocketError where
glibType :: IO GType
glibType = IO GType
c_soup_websocket_error_get_type
instance B.Types.BoxedEnum WebsocketError
data WebsocketDataType =
WebsocketDataTypeText
| WebsocketDataTypeBinary
| AnotherWebsocketDataType Int
deriving (Int -> WebsocketDataType -> ShowS
[WebsocketDataType] -> ShowS
WebsocketDataType -> String
(Int -> WebsocketDataType -> ShowS)
-> (WebsocketDataType -> String)
-> ([WebsocketDataType] -> ShowS)
-> Show WebsocketDataType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebsocketDataType -> ShowS
showsPrec :: Int -> WebsocketDataType -> ShowS
$cshow :: WebsocketDataType -> String
show :: WebsocketDataType -> String
$cshowList :: [WebsocketDataType] -> ShowS
showList :: [WebsocketDataType] -> ShowS
Show, WebsocketDataType -> WebsocketDataType -> Bool
(WebsocketDataType -> WebsocketDataType -> Bool)
-> (WebsocketDataType -> WebsocketDataType -> Bool)
-> Eq WebsocketDataType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebsocketDataType -> WebsocketDataType -> Bool
== :: WebsocketDataType -> WebsocketDataType -> Bool
$c/= :: WebsocketDataType -> WebsocketDataType -> Bool
/= :: WebsocketDataType -> WebsocketDataType -> Bool
Eq)
instance P.Enum WebsocketDataType where
fromEnum :: WebsocketDataType -> Int
fromEnum WebsocketDataType
WebsocketDataTypeText = Int
1
fromEnum WebsocketDataType
WebsocketDataTypeBinary = Int
2
fromEnum (AnotherWebsocketDataType Int
k) = Int
k
toEnum :: Int -> WebsocketDataType
toEnum Int
1 = WebsocketDataType
WebsocketDataTypeText
toEnum Int
2 = WebsocketDataType
WebsocketDataTypeBinary
toEnum Int
k = Int -> WebsocketDataType
AnotherWebsocketDataType Int
k
instance P.Ord WebsocketDataType where
compare :: WebsocketDataType -> WebsocketDataType -> Ordering
compare WebsocketDataType
a WebsocketDataType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WebsocketDataType -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketDataType
a) (WebsocketDataType -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketDataType
b)
type instance O.ParentTypes WebsocketDataType = '[]
instance O.HasParentTypes WebsocketDataType
foreign import ccall "soup_websocket_data_type_get_type" c_soup_websocket_data_type_get_type ::
IO GType
instance B.Types.TypedObject WebsocketDataType where
glibType :: IO GType
glibType = IO GType
c_soup_websocket_data_type_get_type
instance B.Types.BoxedEnum WebsocketDataType
data WebsocketConnectionType =
WebsocketConnectionTypeUnknown
| WebsocketConnectionTypeClient
| WebsocketConnectionTypeServer
| AnotherWebsocketConnectionType Int
deriving (Int -> WebsocketConnectionType -> ShowS
[WebsocketConnectionType] -> ShowS
WebsocketConnectionType -> String
(Int -> WebsocketConnectionType -> ShowS)
-> (WebsocketConnectionType -> String)
-> ([WebsocketConnectionType] -> ShowS)
-> Show WebsocketConnectionType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebsocketConnectionType -> ShowS
showsPrec :: Int -> WebsocketConnectionType -> ShowS
$cshow :: WebsocketConnectionType -> String
show :: WebsocketConnectionType -> String
$cshowList :: [WebsocketConnectionType] -> ShowS
showList :: [WebsocketConnectionType] -> ShowS
Show, WebsocketConnectionType -> WebsocketConnectionType -> Bool
(WebsocketConnectionType -> WebsocketConnectionType -> Bool)
-> (WebsocketConnectionType -> WebsocketConnectionType -> Bool)
-> Eq WebsocketConnectionType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebsocketConnectionType -> WebsocketConnectionType -> Bool
== :: WebsocketConnectionType -> WebsocketConnectionType -> Bool
$c/= :: WebsocketConnectionType -> WebsocketConnectionType -> Bool
/= :: WebsocketConnectionType -> WebsocketConnectionType -> Bool
Eq)
instance P.Enum WebsocketConnectionType where
fromEnum :: WebsocketConnectionType -> Int
fromEnum WebsocketConnectionType
WebsocketConnectionTypeUnknown = Int
0
fromEnum WebsocketConnectionType
WebsocketConnectionTypeClient = Int
1
fromEnum WebsocketConnectionType
WebsocketConnectionTypeServer = Int
2
fromEnum (AnotherWebsocketConnectionType Int
k) = Int
k
toEnum :: Int -> WebsocketConnectionType
toEnum Int
0 = WebsocketConnectionType
WebsocketConnectionTypeUnknown
toEnum Int
1 = WebsocketConnectionType
WebsocketConnectionTypeClient
toEnum Int
2 = WebsocketConnectionType
WebsocketConnectionTypeServer
toEnum Int
k = Int -> WebsocketConnectionType
AnotherWebsocketConnectionType Int
k
instance P.Ord WebsocketConnectionType where
compare :: WebsocketConnectionType -> WebsocketConnectionType -> Ordering
compare WebsocketConnectionType
a WebsocketConnectionType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WebsocketConnectionType -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketConnectionType
a) (WebsocketConnectionType -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketConnectionType
b)
type instance O.ParentTypes WebsocketConnectionType = '[]
instance O.HasParentTypes WebsocketConnectionType
foreign import ccall "soup_websocket_connection_type_get_type" c_soup_websocket_connection_type_get_type ::
IO GType
instance B.Types.TypedObject WebsocketConnectionType where
glibType :: IO GType
glibType = IO GType
c_soup_websocket_connection_type_get_type
instance B.Types.BoxedEnum WebsocketConnectionType
data WebsocketCloseCode =
WebsocketCloseCodeNormal
| WebsocketCloseCodeGoingAway
| WebsocketCloseCodeProtocolError
| WebsocketCloseCodeUnsupportedData
| WebsocketCloseCodeNoStatus
| WebsocketCloseCodeAbnormal
| WebsocketCloseCodeBadData
| WebsocketCloseCodePolicyViolation
| WebsocketCloseCodeTooBig
| WebsocketCloseCodeNoExtension
| WebsocketCloseCodeServerError
| WebsocketCloseCodeTlsHandshake
| AnotherWebsocketCloseCode Int
deriving (Int -> WebsocketCloseCode -> ShowS
[WebsocketCloseCode] -> ShowS
WebsocketCloseCode -> String
(Int -> WebsocketCloseCode -> ShowS)
-> (WebsocketCloseCode -> String)
-> ([WebsocketCloseCode] -> ShowS)
-> Show WebsocketCloseCode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WebsocketCloseCode -> ShowS
showsPrec :: Int -> WebsocketCloseCode -> ShowS
$cshow :: WebsocketCloseCode -> String
show :: WebsocketCloseCode -> String
$cshowList :: [WebsocketCloseCode] -> ShowS
showList :: [WebsocketCloseCode] -> ShowS
Show, WebsocketCloseCode -> WebsocketCloseCode -> Bool
(WebsocketCloseCode -> WebsocketCloseCode -> Bool)
-> (WebsocketCloseCode -> WebsocketCloseCode -> Bool)
-> Eq WebsocketCloseCode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WebsocketCloseCode -> WebsocketCloseCode -> Bool
== :: WebsocketCloseCode -> WebsocketCloseCode -> Bool
$c/= :: WebsocketCloseCode -> WebsocketCloseCode -> Bool
/= :: WebsocketCloseCode -> WebsocketCloseCode -> Bool
Eq)
instance P.Enum WebsocketCloseCode where
fromEnum :: WebsocketCloseCode -> Int
fromEnum WebsocketCloseCode
WebsocketCloseCodeNormal = Int
1000
fromEnum WebsocketCloseCode
WebsocketCloseCodeGoingAway = Int
1001
fromEnum WebsocketCloseCode
WebsocketCloseCodeProtocolError = Int
1002
fromEnum WebsocketCloseCode
WebsocketCloseCodeUnsupportedData = Int
1003
fromEnum WebsocketCloseCode
WebsocketCloseCodeNoStatus = Int
1005
fromEnum WebsocketCloseCode
WebsocketCloseCodeAbnormal = Int
1006
fromEnum WebsocketCloseCode
WebsocketCloseCodeBadData = Int
1007
fromEnum WebsocketCloseCode
WebsocketCloseCodePolicyViolation = Int
1008
fromEnum WebsocketCloseCode
WebsocketCloseCodeTooBig = Int
1009
fromEnum WebsocketCloseCode
WebsocketCloseCodeNoExtension = Int
1010
fromEnum WebsocketCloseCode
WebsocketCloseCodeServerError = Int
1011
fromEnum WebsocketCloseCode
WebsocketCloseCodeTlsHandshake = Int
1015
fromEnum (AnotherWebsocketCloseCode Int
k) = Int
k
toEnum :: Int -> WebsocketCloseCode
toEnum Int
1000 = WebsocketCloseCode
WebsocketCloseCodeNormal
toEnum Int
1001 = WebsocketCloseCode
WebsocketCloseCodeGoingAway
toEnum Int
1002 = WebsocketCloseCode
WebsocketCloseCodeProtocolError
toEnum Int
1003 = WebsocketCloseCode
WebsocketCloseCodeUnsupportedData
toEnum Int
1005 = WebsocketCloseCode
WebsocketCloseCodeNoStatus
toEnum Int
1006 = WebsocketCloseCode
WebsocketCloseCodeAbnormal
toEnum Int
1007 = WebsocketCloseCode
WebsocketCloseCodeBadData
toEnum Int
1008 = WebsocketCloseCode
WebsocketCloseCodePolicyViolation
toEnum Int
1009 = WebsocketCloseCode
WebsocketCloseCodeTooBig
toEnum Int
1010 = WebsocketCloseCode
WebsocketCloseCodeNoExtension
toEnum Int
1011 = WebsocketCloseCode
WebsocketCloseCodeServerError
toEnum Int
1015 = WebsocketCloseCode
WebsocketCloseCodeTlsHandshake
toEnum Int
k = Int -> WebsocketCloseCode
AnotherWebsocketCloseCode Int
k
instance P.Ord WebsocketCloseCode where
compare :: WebsocketCloseCode -> WebsocketCloseCode -> Ordering
compare WebsocketCloseCode
a WebsocketCloseCode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (WebsocketCloseCode -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketCloseCode
a) (WebsocketCloseCode -> Int
forall a. Enum a => a -> Int
P.fromEnum WebsocketCloseCode
b)
type instance O.ParentTypes WebsocketCloseCode = '[]
instance O.HasParentTypes WebsocketCloseCode
foreign import ccall "soup_websocket_close_code_get_type" c_soup_websocket_close_code_get_type ::
IO GType
instance B.Types.TypedObject WebsocketCloseCode where
glibType :: IO GType
glibType = IO GType
c_soup_websocket_close_code_get_type
instance B.Types.BoxedEnum WebsocketCloseCode
data TLDError =
TLDErrorInvalidHostname
| TLDErrorIsIpAddress
| TLDErrorNotEnoughDomains
| TLDErrorNoBaseDomain
| TLDErrorNoPslData
| AnotherTLDError Int
deriving (Int -> TLDError -> ShowS
[TLDError] -> ShowS
TLDError -> String
(Int -> TLDError -> ShowS)
-> (TLDError -> String) -> ([TLDError] -> ShowS) -> Show TLDError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TLDError -> ShowS
showsPrec :: Int -> TLDError -> ShowS
$cshow :: TLDError -> String
show :: TLDError -> String
$cshowList :: [TLDError] -> ShowS
showList :: [TLDError] -> ShowS
Show, TLDError -> TLDError -> Bool
(TLDError -> TLDError -> Bool)
-> (TLDError -> TLDError -> Bool) -> Eq TLDError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TLDError -> TLDError -> Bool
== :: TLDError -> TLDError -> Bool
$c/= :: TLDError -> TLDError -> Bool
/= :: TLDError -> TLDError -> Bool
Eq)
instance P.Enum TLDError where
fromEnum :: TLDError -> Int
fromEnum TLDError
TLDErrorInvalidHostname = Int
0
fromEnum TLDError
TLDErrorIsIpAddress = Int
1
fromEnum TLDError
TLDErrorNotEnoughDomains = Int
2
fromEnum TLDError
TLDErrorNoBaseDomain = Int
3
fromEnum TLDError
TLDErrorNoPslData = Int
4
fromEnum (AnotherTLDError Int
k) = Int
k
toEnum :: Int -> TLDError
toEnum Int
0 = TLDError
TLDErrorInvalidHostname
toEnum Int
1 = TLDError
TLDErrorIsIpAddress
toEnum Int
2 = TLDError
TLDErrorNotEnoughDomains
toEnum Int
3 = TLDError
TLDErrorNoBaseDomain
toEnum Int
4 = TLDError
TLDErrorNoPslData
toEnum Int
k = Int -> TLDError
AnotherTLDError Int
k
instance P.Ord TLDError where
compare :: TLDError -> TLDError -> Ordering
compare TLDError
a TLDError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (TLDError -> Int
forall a. Enum a => a -> Int
P.fromEnum TLDError
a) (TLDError -> Int
forall a. Enum a => a -> Int
P.fromEnum TLDError
b)
instance GErrorClass TLDError where
gerrorClassDomain :: TLDError -> Text
gerrorClassDomain TLDError
_ = Text
"soup_tld_error_quark"
catchTLDError ::
IO a ->
(TLDError -> GErrorMessage -> IO a) ->
IO a
catchTLDError :: forall a. IO a -> (TLDError -> Text -> IO a) -> IO a
catchTLDError = IO a -> (TLDError -> Text -> IO a) -> IO a
forall err a.
GErrorClass err =>
IO a -> (err -> Text -> IO a) -> IO a
catchGErrorJustDomain
handleTLDError ::
(TLDError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleTLDError :: forall a. (TLDError -> Text -> IO a) -> IO a -> IO a
handleTLDError = (TLDError -> Text -> IO a) -> IO a -> IO a
forall err a.
GErrorClass err =>
(err -> Text -> IO a) -> IO a -> IO a
handleGErrorJustDomain
type instance O.ParentTypes TLDError = '[]
instance O.HasParentTypes TLDError
foreign import ccall "soup_tld_error_get_type" c_soup_tld_error_get_type ::
IO GType
instance B.Types.TypedObject TLDError where
glibType :: IO GType
glibType = IO GType
c_soup_tld_error_get_type
instance B.Types.BoxedEnum TLDError
data Status =
StatusNone
| StatusCancelled
| StatusCantResolve
| StatusCantResolveProxy
| StatusCantConnect
| StatusCantConnectProxy
| StatusSslFailed
| StatusIoError
| StatusMalformed
| StatusTryAgain
| StatusTooManyRedirects
| StatusTlsFailed
| StatusContinue
| StatusSwitchingProtocols
| StatusProcessing
| StatusOk
| StatusCreated
| StatusAccepted
| StatusNonAuthoritative
| StatusNoContent
| StatusResetContent
| StatusPartialContent
| StatusMultiStatus
| StatusMultipleChoices
| StatusMovedPermanently
| StatusFound
| StatusMovedTemporarily
| StatusSeeOther
| StatusNotModified
| StatusUseProxy
| StatusNotAppearingInThisProtocol
| StatusTemporaryRedirect
| StatusPermanentRedirect
| StatusBadRequest
| StatusUnauthorized
| StatusPaymentRequired
| StatusForbidden
| StatusNotFound
| StatusMethodNotAllowed
| StatusNotAcceptable
| StatusProxyAuthenticationRequired
| StatusProxyUnauthorized
| StatusRequestTimeout
| StatusConflict
| StatusGone
| StatusLengthRequired
| StatusPreconditionFailed
| StatusRequestEntityTooLarge
| StatusRequestUriTooLong
| StatusUnsupportedMediaType
| StatusRequestedRangeNotSatisfiable
| StatusInvalidRange
| StatusExpectationFailed
| StatusUnprocessableEntity
| StatusLocked
| StatusFailedDependency
| StatusInternalServerError
| StatusNotImplemented
| StatusBadGateway
| StatusServiceUnavailable
| StatusGatewayTimeout
| StatusHttpVersionNotSupported
| StatusInsufficientStorage
| StatusNotExtended
| AnotherStatus Int
deriving (Int -> Status -> ShowS
[Status] -> ShowS
Status -> String
(Int -> Status -> ShowS)
-> (Status -> String) -> ([Status] -> ShowS) -> Show Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Status -> ShowS
showsPrec :: Int -> Status -> ShowS
$cshow :: Status -> String
show :: Status -> String
$cshowList :: [Status] -> ShowS
showList :: [Status] -> ShowS
Show, Status -> Status -> Bool
(Status -> Status -> Bool)
-> (Status -> Status -> Bool) -> Eq Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Status -> Status -> Bool
== :: Status -> Status -> Bool
$c/= :: Status -> Status -> Bool
/= :: Status -> Status -> Bool
Eq)
instance P.Enum Status where
fromEnum :: Status -> Int
fromEnum Status
StatusNone = Int
0
fromEnum Status
StatusCancelled = Int
1
fromEnum Status
StatusCantResolve = Int
2
fromEnum Status
StatusCantResolveProxy = Int
3
fromEnum Status
StatusCantConnect = Int
4
fromEnum Status
StatusCantConnectProxy = Int
5
fromEnum Status
StatusSslFailed = Int
6
fromEnum Status
StatusIoError = Int
7
fromEnum Status
StatusMalformed = Int
8
fromEnum Status
StatusTryAgain = Int
9
fromEnum Status
StatusTooManyRedirects = Int
10
fromEnum Status
StatusTlsFailed = Int
11
fromEnum Status
StatusContinue = Int
100
fromEnum Status
StatusSwitchingProtocols = Int
101
fromEnum Status
StatusProcessing = Int
102
fromEnum Status
StatusOk = Int
200
fromEnum Status
StatusCreated = Int
201
fromEnum Status
StatusAccepted = Int
202
fromEnum Status
StatusNonAuthoritative = Int
203
fromEnum Status
StatusNoContent = Int
204
fromEnum Status
StatusResetContent = Int
205
fromEnum Status
StatusPartialContent = Int
206
fromEnum Status
StatusMultiStatus = Int
207
fromEnum Status
StatusMultipleChoices = Int
300
fromEnum Status
StatusMovedPermanently = Int
301
fromEnum Status
StatusFound = Int
302
fromEnum Status
StatusMovedTemporarily = Int
302
fromEnum Status
StatusSeeOther = Int
303
fromEnum Status
StatusNotModified = Int
304
fromEnum Status
StatusUseProxy = Int
305
fromEnum Status
StatusNotAppearingInThisProtocol = Int
306
fromEnum Status
StatusTemporaryRedirect = Int
307
fromEnum Status
StatusPermanentRedirect = Int
308
fromEnum Status
StatusBadRequest = Int
400
fromEnum Status
StatusUnauthorized = Int
401
fromEnum Status
StatusPaymentRequired = Int
402
fromEnum Status
StatusForbidden = Int
403
fromEnum Status
StatusNotFound = Int
404
fromEnum Status
StatusMethodNotAllowed = Int
405
fromEnum Status
StatusNotAcceptable = Int
406
fromEnum Status
StatusProxyAuthenticationRequired = Int
407
fromEnum Status
StatusProxyUnauthorized = Int
407
fromEnum Status
StatusRequestTimeout = Int
408
fromEnum Status
StatusConflict = Int
409
fromEnum Status
StatusGone = Int
410
fromEnum Status
StatusLengthRequired = Int
411
fromEnum Status
StatusPreconditionFailed = Int
412
fromEnum Status
StatusRequestEntityTooLarge = Int
413
fromEnum Status
StatusRequestUriTooLong = Int
414
fromEnum Status
StatusUnsupportedMediaType = Int
415
fromEnum Status
StatusRequestedRangeNotSatisfiable = Int
416
fromEnum Status
StatusInvalidRange = Int
416
fromEnum Status
StatusExpectationFailed = Int
417
fromEnum Status
StatusUnprocessableEntity = Int
422
fromEnum Status
StatusLocked = Int
423
fromEnum Status
StatusFailedDependency = Int
424
fromEnum Status
StatusInternalServerError = Int
500
fromEnum Status
StatusNotImplemented = Int
501
fromEnum Status
StatusBadGateway = Int
502
fromEnum Status
StatusServiceUnavailable = Int
503
fromEnum Status
StatusGatewayTimeout = Int
504
fromEnum Status
StatusHttpVersionNotSupported = Int
505
fromEnum Status
StatusInsufficientStorage = Int
507
fromEnum Status
StatusNotExtended = Int
510
fromEnum (AnotherStatus Int
k) = Int
k
toEnum :: Int -> Status
toEnum Int
0 = Status
StatusNone
toEnum Int
1 = Status
StatusCancelled
toEnum Int
2 = Status
StatusCantResolve
toEnum Int
3 = Status
StatusCantResolveProxy
toEnum Int
4 = Status
StatusCantConnect
toEnum Int
5 = Status
StatusCantConnectProxy
toEnum Int
6 = Status
StatusSslFailed
toEnum Int
7 = Status
StatusIoError
toEnum Int
8 = Status
StatusMalformed
toEnum Int
9 = Status
StatusTryAgain
toEnum Int
10 = Status
StatusTooManyRedirects
toEnum Int
11 = Status
StatusTlsFailed
toEnum Int
100 = Status
StatusContinue
toEnum Int
101 = Status
StatusSwitchingProtocols
toEnum Int
102 = Status
StatusProcessing
toEnum Int
200 = Status
StatusOk
toEnum Int
201 = Status
StatusCreated
toEnum Int
202 = Status
StatusAccepted
toEnum Int
203 = Status
StatusNonAuthoritative
toEnum Int
204 = Status
StatusNoContent
toEnum Int
205 = Status
StatusResetContent
toEnum Int
206 = Status
StatusPartialContent
toEnum Int
207 = Status
StatusMultiStatus
toEnum Int
300 = Status
StatusMultipleChoices
toEnum Int
301 = Status
StatusMovedPermanently
toEnum Int
302 = Status
StatusFound
toEnum Int
303 = Status
StatusSeeOther
toEnum Int
304 = Status
StatusNotModified
toEnum Int
305 = Status
StatusUseProxy
toEnum Int
306 = Status
StatusNotAppearingInThisProtocol
toEnum Int
307 = Status
StatusTemporaryRedirect
toEnum Int
308 = Status
StatusPermanentRedirect
toEnum Int
400 = Status
StatusBadRequest
toEnum Int
401 = Status
StatusUnauthorized
toEnum Int
402 = Status
StatusPaymentRequired
toEnum Int
403 = Status
StatusForbidden
toEnum Int
404 = Status
StatusNotFound
toEnum Int
405 = Status
StatusMethodNotAllowed
toEnum Int
406 = Status
StatusNotAcceptable
toEnum Int
407 = Status
StatusProxyAuthenticationRequired
toEnum Int
408 = Status
StatusRequestTimeout
toEnum Int
409 = Status
StatusConflict
toEnum Int
410 = Status
StatusGone
toEnum Int
411 = Status
StatusLengthRequired
toEnum Int
412 = Status
StatusPreconditionFailed
toEnum Int
413 = Status
StatusRequestEntityTooLarge
toEnum Int
414 = Status
StatusRequestUriTooLong
toEnum Int
415 = Status
StatusUnsupportedMediaType
toEnum Int
416 = Status
StatusRequestedRangeNotSatisfiable
toEnum Int
417 = Status
StatusExpectationFailed
toEnum Int
422 = Status
StatusUnprocessableEntity
toEnum Int
423 = Status
StatusLocked
toEnum Int
424 = Status
StatusFailedDependency
toEnum Int
500 = Status
StatusInternalServerError
toEnum Int
501 = Status
StatusNotImplemented
toEnum Int
502 = Status
StatusBadGateway
toEnum Int
503 = Status
StatusServiceUnavailable
toEnum Int
504 = Status
StatusGatewayTimeout
toEnum Int
505 = Status
StatusHttpVersionNotSupported
toEnum Int
507 = Status
StatusInsufficientStorage
toEnum Int
510 = Status
StatusNotExtended
toEnum Int
k = Int -> Status
AnotherStatus Int
k
instance P.Ord Status where
compare :: Status -> Status -> Ordering
compare Status
a Status
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (Status -> Int
forall a. Enum a => a -> Int
P.fromEnum Status
a) (Status -> Int
forall a. Enum a => a -> Int
P.fromEnum Status
b)
type instance O.ParentTypes Status = '[]
instance O.HasParentTypes Status
foreign import ccall "soup_status_get_type" c_soup_status_get_type ::
IO GType
instance B.Types.TypedObject Status where
glibType :: IO GType
glibType = IO GType
c_soup_status_get_type
instance B.Types.BoxedEnum Status
data SocketIOStatus =
SocketIOStatusOk
| SocketIOStatusWouldBlock
| SocketIOStatusEof
| SocketIOStatusError
| AnotherSocketIOStatus Int
deriving (Int -> SocketIOStatus -> ShowS
[SocketIOStatus] -> ShowS
SocketIOStatus -> String
(Int -> SocketIOStatus -> ShowS)
-> (SocketIOStatus -> String)
-> ([SocketIOStatus] -> ShowS)
-> Show SocketIOStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SocketIOStatus -> ShowS
showsPrec :: Int -> SocketIOStatus -> ShowS
$cshow :: SocketIOStatus -> String
show :: SocketIOStatus -> String
$cshowList :: [SocketIOStatus] -> ShowS
showList :: [SocketIOStatus] -> ShowS
Show, SocketIOStatus -> SocketIOStatus -> Bool
(SocketIOStatus -> SocketIOStatus -> Bool)
-> (SocketIOStatus -> SocketIOStatus -> Bool) -> Eq SocketIOStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketIOStatus -> SocketIOStatus -> Bool
== :: SocketIOStatus -> SocketIOStatus -> Bool
$c/= :: SocketIOStatus -> SocketIOStatus -> Bool
/= :: SocketIOStatus -> SocketIOStatus -> Bool
Eq)
instance P.Enum SocketIOStatus where
fromEnum :: SocketIOStatus -> Int
fromEnum SocketIOStatus
SocketIOStatusOk = Int
0
fromEnum SocketIOStatus
SocketIOStatusWouldBlock = Int
1
fromEnum SocketIOStatus
SocketIOStatusEof = Int
2
fromEnum SocketIOStatus
SocketIOStatusError = Int
3
fromEnum (AnotherSocketIOStatus Int
k) = Int
k
toEnum :: Int -> SocketIOStatus
toEnum Int
0 = SocketIOStatus
SocketIOStatusOk
toEnum Int
1 = SocketIOStatus
SocketIOStatusWouldBlock
toEnum Int
2 = SocketIOStatus
SocketIOStatusEof
toEnum Int
3 = SocketIOStatus
SocketIOStatusError
toEnum Int
k = Int -> SocketIOStatus
AnotherSocketIOStatus Int
k
instance P.Ord SocketIOStatus where
compare :: SocketIOStatus -> SocketIOStatus -> Ordering
compare SocketIOStatus
a SocketIOStatus
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SocketIOStatus -> Int
forall a. Enum a => a -> Int
P.fromEnum SocketIOStatus
a) (SocketIOStatus -> Int
forall a. Enum a => a -> Int
P.fromEnum SocketIOStatus
b)
type instance O.ParentTypes SocketIOStatus = '[]
instance O.HasParentTypes SocketIOStatus
foreign import ccall "soup_socket_io_status_get_type" c_soup_socket_io_status_get_type ::
IO GType
instance B.Types.TypedObject SocketIOStatus where
glibType :: IO GType
glibType = IO GType
c_soup_socket_io_status_get_type
instance B.Types.BoxedEnum SocketIOStatus
data SameSitePolicy =
SameSitePolicyNone
| SameSitePolicyLax
| SameSitePolicyStrict
| AnotherSameSitePolicy Int
deriving (Int -> SameSitePolicy -> ShowS
[SameSitePolicy] -> ShowS
SameSitePolicy -> String
(Int -> SameSitePolicy -> ShowS)
-> (SameSitePolicy -> String)
-> ([SameSitePolicy] -> ShowS)
-> Show SameSitePolicy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SameSitePolicy -> ShowS
showsPrec :: Int -> SameSitePolicy -> ShowS
$cshow :: SameSitePolicy -> String
show :: SameSitePolicy -> String
$cshowList :: [SameSitePolicy] -> ShowS
showList :: [SameSitePolicy] -> ShowS
Show, SameSitePolicy -> SameSitePolicy -> Bool
(SameSitePolicy -> SameSitePolicy -> Bool)
-> (SameSitePolicy -> SameSitePolicy -> Bool) -> Eq SameSitePolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SameSitePolicy -> SameSitePolicy -> Bool
== :: SameSitePolicy -> SameSitePolicy -> Bool
$c/= :: SameSitePolicy -> SameSitePolicy -> Bool
/= :: SameSitePolicy -> SameSitePolicy -> Bool
Eq)
instance P.Enum SameSitePolicy where
fromEnum :: SameSitePolicy -> Int
fromEnum SameSitePolicy
SameSitePolicyNone = Int
0
fromEnum SameSitePolicy
SameSitePolicyLax = Int
1
fromEnum SameSitePolicy
SameSitePolicyStrict = Int
2
fromEnum (AnotherSameSitePolicy Int
k) = Int
k
toEnum :: Int -> SameSitePolicy
toEnum Int
0 = SameSitePolicy
SameSitePolicyNone
toEnum Int
1 = SameSitePolicy
SameSitePolicyLax
toEnum Int
2 = SameSitePolicy
SameSitePolicyStrict
toEnum Int
k = Int -> SameSitePolicy
AnotherSameSitePolicy Int
k
instance P.Ord SameSitePolicy where
compare :: SameSitePolicy -> SameSitePolicy -> Ordering
compare SameSitePolicy
a SameSitePolicy
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (SameSitePolicy -> Int
forall a. Enum a => a -> Int
P.fromEnum SameSitePolicy
a) (SameSitePolicy -> Int
forall a. Enum a => a -> Int
P.fromEnum SameSitePolicy
b)
type instance O.ParentTypes SameSitePolicy = '[]
instance O.HasParentTypes SameSitePolicy
foreign import ccall "soup_same_site_policy_get_type" c_soup_same_site_policy_get_type ::
IO GType
instance B.Types.TypedObject SameSitePolicy where
glibType :: IO GType
glibType = IO GType
c_soup_same_site_policy_get_type
instance B.Types.BoxedEnum SameSitePolicy
data RequesterError =
RequesterErrorBadUri
| RequesterErrorUnsupportedUriScheme
| AnotherRequesterError Int
deriving (Int -> RequesterError -> ShowS
[RequesterError] -> ShowS
RequesterError -> String
(Int -> RequesterError -> ShowS)
-> (RequesterError -> String)
-> ([RequesterError] -> ShowS)
-> Show RequesterError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RequesterError -> ShowS
showsPrec :: Int -> RequesterError -> ShowS
$cshow :: RequesterError -> String
show :: RequesterError -> String
$cshowList :: [RequesterError] -> ShowS
showList :: [RequesterError] -> ShowS
Show, RequesterError -> RequesterError -> Bool
(RequesterError -> RequesterError -> Bool)
-> (RequesterError -> RequesterError -> Bool) -> Eq RequesterError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequesterError -> RequesterError -> Bool
== :: RequesterError -> RequesterError -> Bool
$c/= :: RequesterError -> RequesterError -> Bool
/= :: RequesterError -> RequesterError -> Bool
Eq)
instance P.Enum RequesterError where
fromEnum :: RequesterError -> Int
fromEnum RequesterError
RequesterErrorBadUri = Int
0
fromEnum RequesterError
RequesterErrorUnsupportedUriScheme = Int
1
fromEnum (AnotherRequesterError Int
k) = Int
k
toEnum :: Int -> RequesterError
toEnum Int
0 = RequesterError
RequesterErrorBadUri
toEnum Int
1 = RequesterError
RequesterErrorUnsupportedUriScheme
toEnum Int
k = Int -> RequesterError
AnotherRequesterError Int
k
instance P.Ord RequesterError where
compare :: RequesterError -> RequesterError -> Ordering
compare RequesterError
a RequesterError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (RequesterError -> Int
forall a. Enum a => a -> Int
P.fromEnum RequesterError
a) (RequesterError -> Int
forall a. Enum a => a -> Int
P.fromEnum RequesterError
b)
instance GErrorClass RequesterError where
gerrorClassDomain :: RequesterError -> Text
gerrorClassDomain RequesterError
_ = Text
"soup_requester_error_quark"
catchRequesterError ::
IO a ->
(RequesterError -> GErrorMessage -> IO a) ->
IO a
catchRequesterError :: forall a. IO a -> (RequesterError -> Text -> IO a) -> IO a
catchRequesterError = IO a -> (RequesterError -> Text -> IO a) -> IO a
forall err a.
GErrorClass err =>
IO a -> (err -> Text -> IO a) -> IO a
catchGErrorJustDomain
handleRequesterError ::
(RequesterError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleRequesterError :: forall a. (RequesterError -> Text -> IO a) -> IO a -> IO a
handleRequesterError = (RequesterError -> Text -> IO a) -> IO a -> IO a
forall err a.
GErrorClass err =>
(err -> Text -> IO a) -> IO a -> IO a
handleGErrorJustDomain
type instance O.ParentTypes RequesterError = '[]
instance O.HasParentTypes RequesterError
foreign import ccall "soup_requester_error_get_type" c_soup_requester_error_get_type ::
IO GType
instance B.Types.TypedObject RequesterError where
glibType :: IO GType
glibType = IO GType
c_soup_requester_error_get_type
instance B.Types.BoxedEnum RequesterError
data RequestError =
RequestErrorBadUri
| RequestErrorUnsupportedUriScheme
| RequestErrorParsing
| RequestErrorEncoding
| AnotherRequestError Int
deriving (Int -> RequestError -> ShowS
[RequestError] -> ShowS
RequestError -> String
(Int -> RequestError -> ShowS)
-> (RequestError -> String)
-> ([RequestError] -> ShowS)
-> Show RequestError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RequestError -> ShowS
showsPrec :: Int -> RequestError -> ShowS
$cshow :: RequestError -> String
show :: RequestError -> String
$cshowList :: [RequestError] -> ShowS
showList :: [RequestError] -> ShowS
Show, RequestError -> RequestError -> Bool
(RequestError -> RequestError -> Bool)
-> (RequestError -> RequestError -> Bool) -> Eq RequestError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequestError -> RequestError -> Bool
== :: RequestError -> RequestError -> Bool
$c/= :: RequestError -> RequestError -> Bool
/= :: RequestError -> RequestError -> Bool
Eq)
instance P.Enum RequestError where
fromEnum :: RequestError -> Int
fromEnum RequestError
RequestErrorBadUri = Int
0
fromEnum RequestError
RequestErrorUnsupportedUriScheme = Int
1
fromEnum RequestError
RequestErrorParsing = Int
2
fromEnum RequestError
RequestErrorEncoding = Int
3
fromEnum (AnotherRequestError Int
k) = Int
k
toEnum :: Int -> RequestError
toEnum Int
0 = RequestError
RequestErrorBadUri
toEnum Int
1 = RequestError
RequestErrorUnsupportedUriScheme
toEnum Int
2 = RequestError
RequestErrorParsing
toEnum Int
3 = RequestError
RequestErrorEncoding
toEnum Int
k = Int -> RequestError
AnotherRequestError Int
k
instance P.Ord RequestError where
compare :: RequestError -> RequestError -> Ordering
compare RequestError
a RequestError
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (RequestError -> Int
forall a. Enum a => a -> Int
P.fromEnum RequestError
a) (RequestError -> Int
forall a. Enum a => a -> Int
P.fromEnum RequestError
b)
instance GErrorClass RequestError where
gerrorClassDomain :: RequestError -> Text
gerrorClassDomain RequestError
_ = Text
"soup_request_error_quark"
catchRequestError ::
IO a ->
(RequestError -> GErrorMessage -> IO a) ->
IO a
catchRequestError :: forall a. IO a -> (RequestError -> Text -> IO a) -> IO a
catchRequestError = IO a -> (RequestError -> Text -> IO a) -> IO a
forall err a.
GErrorClass err =>
IO a -> (err -> Text -> IO a) -> IO a
catchGErrorJustDomain
handleRequestError ::
(RequestError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleRequestError :: forall a. (RequestError -> Text -> IO a) -> IO a -> IO a
handleRequestError = (RequestError -> Text -> IO a) -> IO a -> IO a
forall err a.
GErrorClass err =>
(err -> Text -> IO a) -> IO a -> IO a
handleGErrorJustDomain
type instance O.ParentTypes RequestError = '[]
instance O.HasParentTypes RequestError
foreign import ccall "soup_request_error_get_type" c_soup_request_error_get_type ::
IO GType
instance B.Types.TypedObject RequestError where
glibType :: IO GType
glibType = IO GType
c_soup_request_error_get_type
instance B.Types.BoxedEnum RequestError
data MessagePriority =
MessagePriorityVeryLow
| MessagePriorityLow
| MessagePriorityNormal
| MessagePriorityHigh
| MessagePriorityVeryHigh
| AnotherMessagePriority Int
deriving (Int -> MessagePriority -> ShowS
[MessagePriority] -> ShowS
MessagePriority -> String
(Int -> MessagePriority -> ShowS)
-> (MessagePriority -> String)
-> ([MessagePriority] -> ShowS)
-> Show MessagePriority
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MessagePriority -> ShowS
showsPrec :: Int -> MessagePriority -> ShowS
$cshow :: MessagePriority -> String
show :: MessagePriority -> String
$cshowList :: [MessagePriority] -> ShowS
showList :: [MessagePriority] -> ShowS
Show, MessagePriority -> MessagePriority -> Bool
(MessagePriority -> MessagePriority -> Bool)
-> (MessagePriority -> MessagePriority -> Bool)
-> Eq MessagePriority
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MessagePriority -> MessagePriority -> Bool
== :: MessagePriority -> MessagePriority -> Bool
$c/= :: MessagePriority -> MessagePriority -> Bool
/= :: MessagePriority -> MessagePriority -> Bool
Eq)
instance P.Enum MessagePriority where
fromEnum :: MessagePriority -> Int
fromEnum MessagePriority
MessagePriorityVeryLow = Int
0
fromEnum MessagePriority
MessagePriorityLow = Int
1
fromEnum MessagePriority
MessagePriorityNormal = Int
2
fromEnum MessagePriority
MessagePriorityHigh = Int
3
fromEnum MessagePriority
MessagePriorityVeryHigh = Int
4
fromEnum (AnotherMessagePriority Int
k) = Int
k
toEnum :: Int -> MessagePriority
toEnum Int
0 = MessagePriority
MessagePriorityVeryLow
toEnum Int
1 = MessagePriority
MessagePriorityLow
toEnum Int
2 = MessagePriority
MessagePriorityNormal
toEnum Int
3 = MessagePriority
MessagePriorityHigh
toEnum Int
4 = MessagePriority
MessagePriorityVeryHigh
toEnum Int
k = Int -> MessagePriority
AnotherMessagePriority Int
k
instance P.Ord MessagePriority where
compare :: MessagePriority -> MessagePriority -> Ordering
compare MessagePriority
a MessagePriority
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MessagePriority -> Int
forall a. Enum a => a -> Int
P.fromEnum MessagePriority
a) (MessagePriority -> Int
forall a. Enum a => a -> Int
P.fromEnum MessagePriority
b)
type instance O.ParentTypes MessagePriority = '[]
instance O.HasParentTypes MessagePriority
foreign import ccall "soup_message_priority_get_type" c_soup_message_priority_get_type ::
IO GType
instance B.Types.TypedObject MessagePriority where
glibType :: IO GType
glibType = IO GType
c_soup_message_priority_get_type
instance B.Types.BoxedEnum MessagePriority
data =
|
|
| Int
deriving (Int -> MessageHeadersType -> ShowS
[MessageHeadersType] -> ShowS
MessageHeadersType -> String
(Int -> MessageHeadersType -> ShowS)
-> (MessageHeadersType -> String)
-> ([MessageHeadersType] -> ShowS)
-> Show MessageHeadersType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MessageHeadersType -> ShowS
showsPrec :: Int -> MessageHeadersType -> ShowS
$cshow :: MessageHeadersType -> String
show :: MessageHeadersType -> String
$cshowList :: [MessageHeadersType] -> ShowS
showList :: [MessageHeadersType] -> ShowS
Show, MessageHeadersType -> MessageHeadersType -> Bool
(MessageHeadersType -> MessageHeadersType -> Bool)
-> (MessageHeadersType -> MessageHeadersType -> Bool)
-> Eq MessageHeadersType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MessageHeadersType -> MessageHeadersType -> Bool
== :: MessageHeadersType -> MessageHeadersType -> Bool
$c/= :: MessageHeadersType -> MessageHeadersType -> Bool
/= :: MessageHeadersType -> MessageHeadersType -> Bool
Eq)
instance P.Enum MessageHeadersType where
fromEnum :: MessageHeadersType -> Int
fromEnum MessageHeadersType
MessageHeadersTypeRequest = Int
0
fromEnum MessageHeadersType
MessageHeadersTypeResponse = Int
1
fromEnum MessageHeadersType
MessageHeadersTypeMultipart = Int
2
fromEnum (AnotherMessageHeadersType Int
k) = Int
k
toEnum :: Int -> MessageHeadersType
toEnum Int
0 = MessageHeadersType
MessageHeadersTypeRequest
toEnum Int
1 = MessageHeadersType
MessageHeadersTypeResponse
toEnum Int
2 = MessageHeadersType
MessageHeadersTypeMultipart
toEnum Int
k = Int -> MessageHeadersType
AnotherMessageHeadersType Int
k
instance P.Ord MessageHeadersType where
compare :: MessageHeadersType -> MessageHeadersType -> Ordering
compare MessageHeadersType
a MessageHeadersType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MessageHeadersType -> Int
forall a. Enum a => a -> Int
P.fromEnum MessageHeadersType
a) (MessageHeadersType -> Int
forall a. Enum a => a -> Int
P.fromEnum MessageHeadersType
b)
type instance O.ParentTypes MessageHeadersType = '[]
instance O.HasParentTypes MessageHeadersType
foreign import ccall "soup_message_headers_type_get_type" ::
IO GType
instance B.Types.TypedObject MessageHeadersType where
glibType :: IO GType
glibType = IO GType
c_soup_message_headers_type_get_type
instance B.Types.BoxedEnum MessageHeadersType
data MemoryUse =
MemoryUseStatic
| MemoryUseTake
| MemoryUseCopy
| MemoryUseTemporary
| AnotherMemoryUse Int
deriving (Int -> MemoryUse -> ShowS
[MemoryUse] -> ShowS
MemoryUse -> String
(Int -> MemoryUse -> ShowS)
-> (MemoryUse -> String)
-> ([MemoryUse] -> ShowS)
-> Show MemoryUse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MemoryUse -> ShowS
showsPrec :: Int -> MemoryUse -> ShowS
$cshow :: MemoryUse -> String
show :: MemoryUse -> String
$cshowList :: [MemoryUse] -> ShowS
showList :: [MemoryUse] -> ShowS
Show, MemoryUse -> MemoryUse -> Bool
(MemoryUse -> MemoryUse -> Bool)
-> (MemoryUse -> MemoryUse -> Bool) -> Eq MemoryUse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemoryUse -> MemoryUse -> Bool
== :: MemoryUse -> MemoryUse -> Bool
$c/= :: MemoryUse -> MemoryUse -> Bool
/= :: MemoryUse -> MemoryUse -> Bool
Eq)
instance P.Enum MemoryUse where
fromEnum :: MemoryUse -> Int
fromEnum MemoryUse
MemoryUseStatic = Int
0
fromEnum MemoryUse
MemoryUseTake = Int
1
fromEnum MemoryUse
MemoryUseCopy = Int
2
fromEnum MemoryUse
MemoryUseTemporary = Int
3
fromEnum (AnotherMemoryUse Int
k) = Int
k
toEnum :: Int -> MemoryUse
toEnum Int
0 = MemoryUse
MemoryUseStatic
toEnum Int
1 = MemoryUse
MemoryUseTake
toEnum Int
2 = MemoryUse
MemoryUseCopy
toEnum Int
3 = MemoryUse
MemoryUseTemporary
toEnum Int
k = Int -> MemoryUse
AnotherMemoryUse Int
k
instance P.Ord MemoryUse where
compare :: MemoryUse -> MemoryUse -> Ordering
compare MemoryUse
a MemoryUse
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (MemoryUse -> Int
forall a. Enum a => a -> Int
P.fromEnum MemoryUse
a) (MemoryUse -> Int
forall a. Enum a => a -> Int
P.fromEnum MemoryUse
b)
type instance O.ParentTypes MemoryUse = '[]
instance O.HasParentTypes MemoryUse
foreign import ccall "soup_memory_use_get_type" c_soup_memory_use_get_type ::
IO GType
instance B.Types.TypedObject MemoryUse where
glibType :: IO GType
glibType = IO GType
c_soup_memory_use_get_type
instance B.Types.BoxedEnum MemoryUse
data LoggerLogLevel =
LoggerLogLevelNone
| LoggerLogLevelMinimal
|
| LoggerLogLevelBody
| AnotherLoggerLogLevel Int
deriving (Int -> LoggerLogLevel -> ShowS
[LoggerLogLevel] -> ShowS
LoggerLogLevel -> String
(Int -> LoggerLogLevel -> ShowS)
-> (LoggerLogLevel -> String)
-> ([LoggerLogLevel] -> ShowS)
-> Show LoggerLogLevel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LoggerLogLevel -> ShowS
showsPrec :: Int -> LoggerLogLevel -> ShowS
$cshow :: LoggerLogLevel -> String
show :: LoggerLogLevel -> String
$cshowList :: [LoggerLogLevel] -> ShowS
showList :: [LoggerLogLevel] -> ShowS
Show, LoggerLogLevel -> LoggerLogLevel -> Bool
(LoggerLogLevel -> LoggerLogLevel -> Bool)
-> (LoggerLogLevel -> LoggerLogLevel -> Bool) -> Eq LoggerLogLevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LoggerLogLevel -> LoggerLogLevel -> Bool
== :: LoggerLogLevel -> LoggerLogLevel -> Bool
$c/= :: LoggerLogLevel -> LoggerLogLevel -> Bool
/= :: LoggerLogLevel -> LoggerLogLevel -> Bool
Eq)
instance P.Enum LoggerLogLevel where
fromEnum :: LoggerLogLevel -> Int
fromEnum LoggerLogLevel
LoggerLogLevelNone = Int
0
fromEnum LoggerLogLevel
LoggerLogLevelMinimal = Int
1
fromEnum LoggerLogLevel
LoggerLogLevelHeaders = Int
2
fromEnum LoggerLogLevel
LoggerLogLevelBody = Int
3
fromEnum (AnotherLoggerLogLevel Int
k) = Int
k
toEnum :: Int -> LoggerLogLevel
toEnum Int
0 = LoggerLogLevel
LoggerLogLevelNone
toEnum Int
1 = LoggerLogLevel
LoggerLogLevelMinimal
toEnum Int
2 = LoggerLogLevel
LoggerLogLevelHeaders
toEnum Int
3 = LoggerLogLevel
LoggerLogLevelBody
toEnum Int
k = Int -> LoggerLogLevel
AnotherLoggerLogLevel Int
k
instance P.Ord LoggerLogLevel where
compare :: LoggerLogLevel -> LoggerLogLevel -> Ordering
compare LoggerLogLevel
a LoggerLogLevel
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (LoggerLogLevel -> Int
forall a. Enum a => a -> Int
P.fromEnum LoggerLogLevel
a) (LoggerLogLevel -> Int
forall a. Enum a => a -> Int
P.fromEnum LoggerLogLevel
b)
type instance O.ParentTypes LoggerLogLevel = '[]
instance O.HasParentTypes LoggerLogLevel
foreign import ccall "soup_logger_log_level_get_type" c_soup_logger_log_level_get_type ::
IO GType
instance B.Types.TypedObject LoggerLogLevel where
glibType :: IO GType
glibType = IO GType
c_soup_logger_log_level_get_type
instance B.Types.BoxedEnum LoggerLogLevel
data KnownStatusCode =
KnownStatusCodeNone
| KnownStatusCodeCancelled
| KnownStatusCodeCantResolve
| KnownStatusCodeCantResolveProxy
| KnownStatusCodeCantConnect
| KnownStatusCodeCantConnectProxy
| KnownStatusCodeSslFailed
| KnownStatusCodeIoError
| KnownStatusCodeMalformed
| KnownStatusCodeTryAgain
| KnownStatusCodeTooManyRedirects
| KnownStatusCodeTlsFailed
| KnownStatusCodeContinue
| KnownStatusCodeSwitchingProtocols
| KnownStatusCodeProcessing
| KnownStatusCodeOk
| KnownStatusCodeCreated
| KnownStatusCodeAccepted
| KnownStatusCodeNonAuthoritative
| KnownStatusCodeNoContent
| KnownStatusCodeResetContent
| KnownStatusCodePartialContent
| KnownStatusCodeMultiStatus
| KnownStatusCodeMultipleChoices
| KnownStatusCodeMovedPermanently
| KnownStatusCodeFound
| KnownStatusCodeMovedTemporarily
| KnownStatusCodeSeeOther
| KnownStatusCodeNotModified
| KnownStatusCodeUseProxy
| KnownStatusCodeNotAppearingInThisProtocol
| KnownStatusCodeTemporaryRedirect
| KnownStatusCodeBadRequest
| KnownStatusCodeUnauthorized
| KnownStatusCodePaymentRequired
| KnownStatusCodeForbidden
| KnownStatusCodeNotFound
| KnownStatusCodeMethodNotAllowed
| KnownStatusCodeNotAcceptable
| KnownStatusCodeProxyAuthenticationRequired
| KnownStatusCodeProxyUnauthorized
| KnownStatusCodeRequestTimeout
| KnownStatusCodeConflict
| KnownStatusCodeGone
| KnownStatusCodeLengthRequired
| KnownStatusCodePreconditionFailed
| KnownStatusCodeRequestEntityTooLarge
| KnownStatusCodeRequestUriTooLong
| KnownStatusCodeUnsupportedMediaType
| KnownStatusCodeRequestedRangeNotSatisfiable
| KnownStatusCodeInvalidRange
| KnownStatusCodeExpectationFailed
| KnownStatusCodeUnprocessableEntity
| KnownStatusCodeLocked
| KnownStatusCodeFailedDependency
| KnownStatusCodeInternalServerError
| KnownStatusCodeNotImplemented
| KnownStatusCodeBadGateway
| KnownStatusCodeServiceUnavailable
| KnownStatusCodeGatewayTimeout
| KnownStatusCodeHttpVersionNotSupported
| KnownStatusCodeInsufficientStorage
| KnownStatusCodeNotExtended
| AnotherKnownStatusCode Int
deriving (Int -> KnownStatusCode -> ShowS
[KnownStatusCode] -> ShowS
KnownStatusCode -> String
(Int -> KnownStatusCode -> ShowS)
-> (KnownStatusCode -> String)
-> ([KnownStatusCode] -> ShowS)
-> Show KnownStatusCode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> KnownStatusCode -> ShowS
showsPrec :: Int -> KnownStatusCode -> ShowS
$cshow :: KnownStatusCode -> String
show :: KnownStatusCode -> String
$cshowList :: [KnownStatusCode] -> ShowS
showList :: [KnownStatusCode] -> ShowS
Show, KnownStatusCode -> KnownStatusCode -> Bool
(KnownStatusCode -> KnownStatusCode -> Bool)
-> (KnownStatusCode -> KnownStatusCode -> Bool)
-> Eq KnownStatusCode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: KnownStatusCode -> KnownStatusCode -> Bool
== :: KnownStatusCode -> KnownStatusCode -> Bool
$c/= :: KnownStatusCode -> KnownStatusCode -> Bool
/= :: KnownStatusCode -> KnownStatusCode -> Bool
Eq)
instance P.Enum KnownStatusCode where
fromEnum :: KnownStatusCode -> Int
fromEnum KnownStatusCode
KnownStatusCodeNone = Int
0
fromEnum KnownStatusCode
KnownStatusCodeCancelled = Int
1
fromEnum KnownStatusCode
KnownStatusCodeCantResolve = Int
2
fromEnum KnownStatusCode
KnownStatusCodeCantResolveProxy = Int
3
fromEnum KnownStatusCode
KnownStatusCodeCantConnect = Int
4
fromEnum KnownStatusCode
KnownStatusCodeCantConnectProxy = Int
5
fromEnum KnownStatusCode
KnownStatusCodeSslFailed = Int
6
fromEnum KnownStatusCode
KnownStatusCodeIoError = Int
7
fromEnum KnownStatusCode
KnownStatusCodeMalformed = Int
8
fromEnum KnownStatusCode
KnownStatusCodeTryAgain = Int
9
fromEnum KnownStatusCode
KnownStatusCodeTooManyRedirects = Int
10
fromEnum KnownStatusCode
KnownStatusCodeTlsFailed = Int
11
fromEnum KnownStatusCode
KnownStatusCodeContinue = Int
100
fromEnum KnownStatusCode
KnownStatusCodeSwitchingProtocols = Int
101
fromEnum KnownStatusCode
KnownStatusCodeProcessing = Int
102
fromEnum KnownStatusCode
KnownStatusCodeOk = Int
200
fromEnum KnownStatusCode
KnownStatusCodeCreated = Int
201
fromEnum KnownStatusCode
KnownStatusCodeAccepted = Int
202
fromEnum KnownStatusCode
KnownStatusCodeNonAuthoritative = Int
203
fromEnum KnownStatusCode
KnownStatusCodeNoContent = Int
204
fromEnum KnownStatusCode
KnownStatusCodeResetContent = Int
205
fromEnum KnownStatusCode
KnownStatusCodePartialContent = Int
206
fromEnum KnownStatusCode
KnownStatusCodeMultiStatus = Int
207
fromEnum KnownStatusCode
KnownStatusCodeMultipleChoices = Int
300
fromEnum KnownStatusCode
KnownStatusCodeMovedPermanently = Int
301
fromEnum KnownStatusCode
KnownStatusCodeFound = Int
302
fromEnum KnownStatusCode
KnownStatusCodeMovedTemporarily = Int
302
fromEnum KnownStatusCode
KnownStatusCodeSeeOther = Int
303
fromEnum KnownStatusCode
KnownStatusCodeNotModified = Int
304
fromEnum KnownStatusCode
KnownStatusCodeUseProxy = Int
305
fromEnum KnownStatusCode
KnownStatusCodeNotAppearingInThisProtocol = Int
306
fromEnum KnownStatusCode
KnownStatusCodeTemporaryRedirect = Int
307
fromEnum KnownStatusCode
KnownStatusCodeBadRequest = Int
400
fromEnum KnownStatusCode
KnownStatusCodeUnauthorized = Int
401
fromEnum KnownStatusCode
KnownStatusCodePaymentRequired = Int
402
fromEnum KnownStatusCode
KnownStatusCodeForbidden = Int
403
fromEnum KnownStatusCode
KnownStatusCodeNotFound = Int
404
fromEnum KnownStatusCode
KnownStatusCodeMethodNotAllowed = Int
405
fromEnum KnownStatusCode
KnownStatusCodeNotAcceptable = Int
406
fromEnum KnownStatusCode
KnownStatusCodeProxyAuthenticationRequired = Int
407
fromEnum KnownStatusCode
KnownStatusCodeProxyUnauthorized = Int
407
fromEnum KnownStatusCode
KnownStatusCodeRequestTimeout = Int
408
fromEnum KnownStatusCode
KnownStatusCodeConflict = Int
409
fromEnum KnownStatusCode
KnownStatusCodeGone = Int
410
fromEnum KnownStatusCode
KnownStatusCodeLengthRequired = Int
411
fromEnum KnownStatusCode
KnownStatusCodePreconditionFailed = Int
412
fromEnum KnownStatusCode
KnownStatusCodeRequestEntityTooLarge = Int
413
fromEnum KnownStatusCode
KnownStatusCodeRequestUriTooLong = Int
414
fromEnum KnownStatusCode
KnownStatusCodeUnsupportedMediaType = Int
415
fromEnum KnownStatusCode
KnownStatusCodeRequestedRangeNotSatisfiable = Int
416
fromEnum KnownStatusCode
KnownStatusCodeInvalidRange = Int
416
fromEnum KnownStatusCode
KnownStatusCodeExpectationFailed = Int
417
fromEnum KnownStatusCode
KnownStatusCodeUnprocessableEntity = Int
422
fromEnum KnownStatusCode
KnownStatusCodeLocked = Int
423
fromEnum KnownStatusCode
KnownStatusCodeFailedDependency = Int
424
fromEnum KnownStatusCode
KnownStatusCodeInternalServerError = Int
500
fromEnum KnownStatusCode
KnownStatusCodeNotImplemented = Int
501
fromEnum KnownStatusCode
KnownStatusCodeBadGateway = Int
502
fromEnum KnownStatusCode
KnownStatusCodeServiceUnavailable = Int
503
fromEnum KnownStatusCode
KnownStatusCodeGatewayTimeout = Int
504
fromEnum KnownStatusCode
KnownStatusCodeHttpVersionNotSupported = Int
505
fromEnum KnownStatusCode
KnownStatusCodeInsufficientStorage = Int
507
fromEnum KnownStatusCode
KnownStatusCodeNotExtended = Int
510
fromEnum (AnotherKnownStatusCode Int
k) = Int
k
toEnum :: Int -> KnownStatusCode
toEnum Int
0 = KnownStatusCode
KnownStatusCodeNone
toEnum Int
1 = KnownStatusCode
KnownStatusCodeCancelled
toEnum Int
2 = KnownStatusCode
KnownStatusCodeCantResolve
toEnum Int
3 = KnownStatusCode
KnownStatusCodeCantResolveProxy
toEnum Int
4 = KnownStatusCode
KnownStatusCodeCantConnect
toEnum Int
5 = KnownStatusCode
KnownStatusCodeCantConnectProxy
toEnum Int
6 = KnownStatusCode
KnownStatusCodeSslFailed
toEnum Int
7 = KnownStatusCode
KnownStatusCodeIoError
toEnum Int
8 = KnownStatusCode
KnownStatusCodeMalformed
toEnum Int
9 = KnownStatusCode
KnownStatusCodeTryAgain
toEnum Int
10 = KnownStatusCode
KnownStatusCodeTooManyRedirects
toEnum Int
11 = KnownStatusCode
KnownStatusCodeTlsFailed
toEnum Int
100 = KnownStatusCode
KnownStatusCodeContinue
toEnum Int
101 = KnownStatusCode
KnownStatusCodeSwitchingProtocols
toEnum Int
102 = KnownStatusCode
KnownStatusCodeProcessing
toEnum Int
200 = KnownStatusCode
KnownStatusCodeOk
toEnum Int
201 = KnownStatusCode
KnownStatusCodeCreated
toEnum Int
202 = KnownStatusCode
KnownStatusCodeAccepted
toEnum Int
203 = KnownStatusCode
KnownStatusCodeNonAuthoritative
toEnum Int
204 = KnownStatusCode
KnownStatusCodeNoContent
toEnum Int
205 = KnownStatusCode
KnownStatusCodeResetContent
toEnum Int
206 = KnownStatusCode
KnownStatusCodePartialContent
toEnum Int
207 = KnownStatusCode
KnownStatusCodeMultiStatus
toEnum Int
300 = KnownStatusCode
KnownStatusCodeMultipleChoices
toEnum Int
301 = KnownStatusCode
KnownStatusCodeMovedPermanently
toEnum Int
302 = KnownStatusCode
KnownStatusCodeFound
toEnum Int
303 = KnownStatusCode
KnownStatusCodeSeeOther
toEnum Int
304 = KnownStatusCode
KnownStatusCodeNotModified
toEnum Int
305 = KnownStatusCode
KnownStatusCodeUseProxy
toEnum Int
306 = KnownStatusCode
KnownStatusCodeNotAppearingInThisProtocol
toEnum Int
307 = KnownStatusCode
KnownStatusCodeTemporaryRedirect
toEnum Int
400 = KnownStatusCode
KnownStatusCodeBadRequest
toEnum Int
401 = KnownStatusCode
KnownStatusCodeUnauthorized
toEnum Int
402 = KnownStatusCode
KnownStatusCodePaymentRequired
toEnum Int
403 = KnownStatusCode
KnownStatusCodeForbidden
toEnum Int
404 = KnownStatusCode
KnownStatusCodeNotFound
toEnum Int
405 = KnownStatusCode
KnownStatusCodeMethodNotAllowed
toEnum Int
406 = KnownStatusCode
KnownStatusCodeNotAcceptable
toEnum Int
407 = KnownStatusCode
KnownStatusCodeProxyAuthenticationRequired
toEnum Int
408 = KnownStatusCode
KnownStatusCodeRequestTimeout
toEnum Int
409 = KnownStatusCode
KnownStatusCodeConflict
toEnum Int
410 = KnownStatusCode
KnownStatusCodeGone
toEnum Int
411 = KnownStatusCode
KnownStatusCodeLengthRequired
toEnum Int
412 = KnownStatusCode
KnownStatusCodePreconditionFailed
toEnum Int
413 = KnownStatusCode
KnownStatusCodeRequestEntityTooLarge
toEnum Int
414 = KnownStatusCode
KnownStatusCodeRequestUriTooLong
toEnum Int
415 = KnownStatusCode
KnownStatusCodeUnsupportedMediaType
toEnum Int
416 = KnownStatusCode
KnownStatusCodeRequestedRangeNotSatisfiable
toEnum Int
417 = KnownStatusCode
KnownStatusCodeExpectationFailed
toEnum Int
422 = KnownStatusCode
KnownStatusCodeUnprocessableEntity
toEnum Int
423 = KnownStatusCode
KnownStatusCodeLocked
toEnum Int
424 = KnownStatusCode
KnownStatusCodeFailedDependency
toEnum Int
500 = KnownStatusCode
KnownStatusCodeInternalServerError
toEnum Int
501 = KnownStatusCode
KnownStatusCodeNotImplemented
toEnum Int
502 = KnownStatusCode
KnownStatusCodeBadGateway
toEnum Int
503 = KnownStatusCode
KnownStatusCodeServiceUnavailable
toEnum Int
504 = KnownStatusCode
KnownStatusCodeGatewayTimeout
toEnum Int
505 = KnownStatusCode
KnownStatusCodeHttpVersionNotSupported
toEnum Int
507 = KnownStatusCode
KnownStatusCodeInsufficientStorage
toEnum Int
510 = KnownStatusCode
KnownStatusCodeNotExtended
toEnum Int
k = Int -> KnownStatusCode
AnotherKnownStatusCode Int
k
instance P.Ord KnownStatusCode where
compare :: KnownStatusCode -> KnownStatusCode -> Ordering
compare KnownStatusCode
a KnownStatusCode
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (KnownStatusCode -> Int
forall a. Enum a => a -> Int
P.fromEnum KnownStatusCode
a) (KnownStatusCode -> Int
forall a. Enum a => a -> Int
P.fromEnum KnownStatusCode
b)
type instance O.ParentTypes KnownStatusCode = '[]
instance O.HasParentTypes KnownStatusCode
foreign import ccall "soup_known_status_code_get_type" c_soup_known_status_code_get_type ::
IO GType
instance B.Types.TypedObject KnownStatusCode where
glibType :: IO GType
glibType = IO GType
c_soup_known_status_code_get_type
instance B.Types.BoxedEnum KnownStatusCode
data HTTPVersion =
HTTPVersionHttp10
| HTTPVersionHttp11
| AnotherHTTPVersion Int
deriving (Int -> HTTPVersion -> ShowS
[HTTPVersion] -> ShowS
HTTPVersion -> String
(Int -> HTTPVersion -> ShowS)
-> (HTTPVersion -> String)
-> ([HTTPVersion] -> ShowS)
-> Show HTTPVersion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HTTPVersion -> ShowS
showsPrec :: Int -> HTTPVersion -> ShowS
$cshow :: HTTPVersion -> String
show :: HTTPVersion -> String
$cshowList :: [HTTPVersion] -> ShowS
showList :: [HTTPVersion] -> ShowS
Show, HTTPVersion -> HTTPVersion -> Bool
(HTTPVersion -> HTTPVersion -> Bool)
-> (HTTPVersion -> HTTPVersion -> Bool) -> Eq HTTPVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HTTPVersion -> HTTPVersion -> Bool
== :: HTTPVersion -> HTTPVersion -> Bool
$c/= :: HTTPVersion -> HTTPVersion -> Bool
/= :: HTTPVersion -> HTTPVersion -> Bool
Eq)
instance P.Enum HTTPVersion where
fromEnum :: HTTPVersion -> Int
fromEnum HTTPVersion
HTTPVersionHttp10 = Int
0
fromEnum HTTPVersion
HTTPVersionHttp11 = Int
1
fromEnum (AnotherHTTPVersion Int
k) = Int
k
toEnum :: Int -> HTTPVersion
toEnum Int
0 = HTTPVersion
HTTPVersionHttp10
toEnum Int
1 = HTTPVersion
HTTPVersionHttp11
toEnum Int
k = Int -> HTTPVersion
AnotherHTTPVersion Int
k
instance P.Ord HTTPVersion where
compare :: HTTPVersion -> HTTPVersion -> Ordering
compare HTTPVersion
a HTTPVersion
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (HTTPVersion -> Int
forall a. Enum a => a -> Int
P.fromEnum HTTPVersion
a) (HTTPVersion -> Int
forall a. Enum a => a -> Int
P.fromEnum HTTPVersion
b)
type instance O.ParentTypes HTTPVersion = '[]
instance O.HasParentTypes HTTPVersion
foreign import ccall "soup_http_version_get_type" c_soup_http_version_get_type ::
IO GType
instance B.Types.TypedObject HTTPVersion where
glibType :: IO GType
glibType = IO GType
c_soup_http_version_get_type
instance B.Types.BoxedEnum HTTPVersion
data Encoding =
EncodingUnrecognized
| EncodingNone
| EncodingContentLength
| EncodingEof
| EncodingChunked
| EncodingByteranges
| AnotherEncoding Int
deriving (Int -> Encoding -> ShowS
[Encoding] -> ShowS
Encoding -> String
(Int -> Encoding -> ShowS)
-> (Encoding -> String) -> ([Encoding] -> ShowS) -> Show Encoding
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Encoding -> ShowS
showsPrec :: Int -> Encoding -> ShowS
$cshow :: Encoding -> String
show :: Encoding -> String
$cshowList :: [Encoding] -> ShowS
showList :: [Encoding] -> ShowS
Show, Encoding -> Encoding -> Bool
(Encoding -> Encoding -> Bool)
-> (Encoding -> Encoding -> Bool) -> Eq Encoding
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Encoding -> Encoding -> Bool
== :: Encoding -> Encoding -> Bool
$c/= :: Encoding -> Encoding -> Bool
/= :: Encoding -> Encoding -> Bool
Eq)
instance P.Enum Encoding where
fromEnum :: Encoding -> Int
fromEnum Encoding
EncodingUnrecognized = Int
0
fromEnum Encoding
EncodingNone = Int
1
fromEnum Encoding
EncodingContentLength = Int
2
fromEnum Encoding
EncodingEof = Int
3
fromEnum Encoding
EncodingChunked = Int
4
fromEnum Encoding
EncodingByteranges = Int
5
fromEnum (AnotherEncoding Int
k) = Int
k
toEnum :: Int -> Encoding
toEnum Int
0 = Encoding
EncodingUnrecognized
toEnum Int
1 = Encoding
EncodingNone
toEnum Int
2 = Encoding
EncodingContentLength
toEnum Int
3 = Encoding
EncodingEof
toEnum Int
4 = Encoding
EncodingChunked
toEnum Int
5 = Encoding
EncodingByteranges
toEnum Int
k = Int -> Encoding
AnotherEncoding Int
k
instance P.Ord Encoding where
compare :: Encoding -> Encoding -> Ordering
compare Encoding
a Encoding
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (Encoding -> Int
forall a. Enum a => a -> Int
P.fromEnum Encoding
a) (Encoding -> Int
forall a. Enum a => a -> Int
P.fromEnum Encoding
b)
type instance O.ParentTypes Encoding = '[]
instance O.HasParentTypes Encoding
foreign import ccall "soup_encoding_get_type" c_soup_encoding_get_type ::
IO GType
instance B.Types.TypedObject Encoding where
glibType :: IO GType
glibType = IO GType
c_soup_encoding_get_type
instance B.Types.BoxedEnum Encoding
data DateFormat =
DateFormatHttp
| DateFormatCookie
| DateFormatRfc2822
| DateFormatIso8601Compact
| DateFormatIso8601Full
| DateFormatIso8601
| DateFormatIso8601Xmlrpc
| AnotherDateFormat Int
deriving (Int -> DateFormat -> ShowS
[DateFormat] -> ShowS
DateFormat -> String
(Int -> DateFormat -> ShowS)
-> (DateFormat -> String)
-> ([DateFormat] -> ShowS)
-> Show DateFormat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DateFormat -> ShowS
showsPrec :: Int -> DateFormat -> ShowS
$cshow :: DateFormat -> String
show :: DateFormat -> String
$cshowList :: [DateFormat] -> ShowS
showList :: [DateFormat] -> ShowS
Show, DateFormat -> DateFormat -> Bool
(DateFormat -> DateFormat -> Bool)
-> (DateFormat -> DateFormat -> Bool) -> Eq DateFormat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DateFormat -> DateFormat -> Bool
== :: DateFormat -> DateFormat -> Bool
$c/= :: DateFormat -> DateFormat -> Bool
/= :: DateFormat -> DateFormat -> Bool
Eq)
instance P.Enum DateFormat where
fromEnum :: DateFormat -> Int
fromEnum DateFormat
DateFormatHttp = Int
1
fromEnum DateFormat
DateFormatCookie = Int
2
fromEnum DateFormat
DateFormatRfc2822 = Int
3
fromEnum DateFormat
DateFormatIso8601Compact = Int
4
fromEnum DateFormat
DateFormatIso8601Full = Int
5
fromEnum DateFormat
DateFormatIso8601 = Int
5
fromEnum DateFormat
DateFormatIso8601Xmlrpc = Int
6
fromEnum (AnotherDateFormat Int
k) = Int
k
toEnum :: Int -> DateFormat
toEnum Int
1 = DateFormat
DateFormatHttp
toEnum Int
2 = DateFormat
DateFormatCookie
toEnum Int
3 = DateFormat
DateFormatRfc2822
toEnum Int
4 = DateFormat
DateFormatIso8601Compact
toEnum Int
5 = DateFormat
DateFormatIso8601Full
toEnum Int
6 = DateFormat
DateFormatIso8601Xmlrpc
toEnum Int
k = Int -> DateFormat
AnotherDateFormat Int
k
instance P.Ord DateFormat where
compare :: DateFormat -> DateFormat -> Ordering
compare DateFormat
a DateFormat
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (DateFormat -> Int
forall a. Enum a => a -> Int
P.fromEnum DateFormat
a) (DateFormat -> Int
forall a. Enum a => a -> Int
P.fromEnum DateFormat
b)
type instance O.ParentTypes DateFormat = '[]
instance O.HasParentTypes DateFormat
foreign import ccall "soup_date_format_get_type" c_soup_date_format_get_type ::
IO GType
instance B.Types.TypedObject DateFormat where
glibType :: IO GType
glibType = IO GType
c_soup_date_format_get_type
instance B.Types.BoxedEnum DateFormat
data CookieJarAcceptPolicy =
CookieJarAcceptPolicyAlways
| CookieJarAcceptPolicyNever
| CookieJarAcceptPolicyNoThirdParty
| CookieJarAcceptPolicyGrandfatheredThirdParty
| AnotherCookieJarAcceptPolicy Int
deriving (Int -> CookieJarAcceptPolicy -> ShowS
[CookieJarAcceptPolicy] -> ShowS
CookieJarAcceptPolicy -> String
(Int -> CookieJarAcceptPolicy -> ShowS)
-> (CookieJarAcceptPolicy -> String)
-> ([CookieJarAcceptPolicy] -> ShowS)
-> Show CookieJarAcceptPolicy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CookieJarAcceptPolicy -> ShowS
showsPrec :: Int -> CookieJarAcceptPolicy -> ShowS
$cshow :: CookieJarAcceptPolicy -> String
show :: CookieJarAcceptPolicy -> String
$cshowList :: [CookieJarAcceptPolicy] -> ShowS
showList :: [CookieJarAcceptPolicy] -> ShowS
Show, CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool
(CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool)
-> (CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool)
-> Eq CookieJarAcceptPolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool
== :: CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool
$c/= :: CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool
/= :: CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Bool
Eq)
instance P.Enum CookieJarAcceptPolicy where
fromEnum :: CookieJarAcceptPolicy -> Int
fromEnum CookieJarAcceptPolicy
CookieJarAcceptPolicyAlways = Int
0
fromEnum CookieJarAcceptPolicy
CookieJarAcceptPolicyNever = Int
1
fromEnum CookieJarAcceptPolicy
CookieJarAcceptPolicyNoThirdParty = Int
2
fromEnum CookieJarAcceptPolicy
CookieJarAcceptPolicyGrandfatheredThirdParty = Int
3
fromEnum (AnotherCookieJarAcceptPolicy Int
k) = Int
k
toEnum :: Int -> CookieJarAcceptPolicy
toEnum Int
0 = CookieJarAcceptPolicy
CookieJarAcceptPolicyAlways
toEnum Int
1 = CookieJarAcceptPolicy
CookieJarAcceptPolicyNever
toEnum Int
2 = CookieJarAcceptPolicy
CookieJarAcceptPolicyNoThirdParty
toEnum Int
3 = CookieJarAcceptPolicy
CookieJarAcceptPolicyGrandfatheredThirdParty
toEnum Int
k = Int -> CookieJarAcceptPolicy
AnotherCookieJarAcceptPolicy Int
k
instance P.Ord CookieJarAcceptPolicy where
compare :: CookieJarAcceptPolicy -> CookieJarAcceptPolicy -> Ordering
compare CookieJarAcceptPolicy
a CookieJarAcceptPolicy
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (CookieJarAcceptPolicy -> Int
forall a. Enum a => a -> Int
P.fromEnum CookieJarAcceptPolicy
a) (CookieJarAcceptPolicy -> Int
forall a. Enum a => a -> Int
P.fromEnum CookieJarAcceptPolicy
b)
type instance O.ParentTypes CookieJarAcceptPolicy = '[]
instance O.HasParentTypes CookieJarAcceptPolicy
foreign import ccall "soup_cookie_jar_accept_policy_get_type" c_soup_cookie_jar_accept_policy_get_type ::
IO GType
instance B.Types.TypedObject CookieJarAcceptPolicy where
glibType :: IO GType
glibType = IO GType
c_soup_cookie_jar_accept_policy_get_type
instance B.Types.BoxedEnum CookieJarAcceptPolicy
data ConnectionState =
ConnectionStateNew
| ConnectionStateConnecting
| ConnectionStateIdle
| ConnectionStateInUse
| ConnectionStateRemoteDisconnected
| ConnectionStateDisconnected
| AnotherConnectionState Int
deriving (Int -> ConnectionState -> ShowS
[ConnectionState] -> ShowS
ConnectionState -> String
(Int -> ConnectionState -> ShowS)
-> (ConnectionState -> String)
-> ([ConnectionState] -> ShowS)
-> Show ConnectionState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ConnectionState -> ShowS
showsPrec :: Int -> ConnectionState -> ShowS
$cshow :: ConnectionState -> String
show :: ConnectionState -> String
$cshowList :: [ConnectionState] -> ShowS
showList :: [ConnectionState] -> ShowS
Show, ConnectionState -> ConnectionState -> Bool
(ConnectionState -> ConnectionState -> Bool)
-> (ConnectionState -> ConnectionState -> Bool)
-> Eq ConnectionState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ConnectionState -> ConnectionState -> Bool
== :: ConnectionState -> ConnectionState -> Bool
$c/= :: ConnectionState -> ConnectionState -> Bool
/= :: ConnectionState -> ConnectionState -> Bool
Eq)
instance P.Enum ConnectionState where
fromEnum :: ConnectionState -> Int
fromEnum ConnectionState
ConnectionStateNew = Int
0
fromEnum ConnectionState
ConnectionStateConnecting = Int
1
fromEnum ConnectionState
ConnectionStateIdle = Int
2
fromEnum ConnectionState
ConnectionStateInUse = Int
3
fromEnum ConnectionState
ConnectionStateRemoteDisconnected = Int
4
fromEnum ConnectionState
ConnectionStateDisconnected = Int
5
fromEnum (AnotherConnectionState Int
k) = Int
k
toEnum :: Int -> ConnectionState
toEnum Int
0 = ConnectionState
ConnectionStateNew
toEnum Int
1 = ConnectionState
ConnectionStateConnecting
toEnum Int
2 = ConnectionState
ConnectionStateIdle
toEnum Int
3 = ConnectionState
ConnectionStateInUse
toEnum Int
4 = ConnectionState
ConnectionStateRemoteDisconnected
toEnum Int
5 = ConnectionState
ConnectionStateDisconnected
toEnum Int
k = Int -> ConnectionState
AnotherConnectionState Int
k
instance P.Ord ConnectionState where
compare :: ConnectionState -> ConnectionState -> Ordering
compare ConnectionState
a ConnectionState
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (ConnectionState -> Int
forall a. Enum a => a -> Int
P.fromEnum ConnectionState
a) (ConnectionState -> Int
forall a. Enum a => a -> Int
P.fromEnum ConnectionState
b)
type instance O.ParentTypes ConnectionState = '[]
instance O.HasParentTypes ConnectionState
foreign import ccall "soup_connection_state_get_type" c_soup_connection_state_get_type ::
IO GType
instance B.Types.TypedObject ConnectionState where
glibType :: IO GType
glibType = IO GType
c_soup_connection_state_get_type
instance B.Types.BoxedEnum ConnectionState
data CacheType =
CacheTypeSingleUser
| CacheTypeShared
| AnotherCacheType Int
deriving (Int -> CacheType -> ShowS
[CacheType] -> ShowS
CacheType -> String
(Int -> CacheType -> ShowS)
-> (CacheType -> String)
-> ([CacheType] -> ShowS)
-> Show CacheType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CacheType -> ShowS
showsPrec :: Int -> CacheType -> ShowS
$cshow :: CacheType -> String
show :: CacheType -> String
$cshowList :: [CacheType] -> ShowS
showList :: [CacheType] -> ShowS
Show, CacheType -> CacheType -> Bool
(CacheType -> CacheType -> Bool)
-> (CacheType -> CacheType -> Bool) -> Eq CacheType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CacheType -> CacheType -> Bool
== :: CacheType -> CacheType -> Bool
$c/= :: CacheType -> CacheType -> Bool
/= :: CacheType -> CacheType -> Bool
Eq)
instance P.Enum CacheType where
fromEnum :: CacheType -> Int
fromEnum CacheType
CacheTypeSingleUser = Int
0
fromEnum CacheType
CacheTypeShared = Int
1
fromEnum (AnotherCacheType Int
k) = Int
k
toEnum :: Int -> CacheType
toEnum Int
0 = CacheType
CacheTypeSingleUser
toEnum Int
1 = CacheType
CacheTypeShared
toEnum Int
k = Int -> CacheType
AnotherCacheType Int
k
instance P.Ord CacheType where
compare :: CacheType -> CacheType -> Ordering
compare CacheType
a CacheType
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (CacheType -> Int
forall a. Enum a => a -> Int
P.fromEnum CacheType
a) (CacheType -> Int
forall a. Enum a => a -> Int
P.fromEnum CacheType
b)
type instance O.ParentTypes CacheType = '[]
instance O.HasParentTypes CacheType
foreign import ccall "soup_cache_type_get_type" c_soup_cache_type_get_type ::
IO GType
instance B.Types.TypedObject CacheType where
glibType :: IO GType
glibType = IO GType
c_soup_cache_type_get_type
instance B.Types.BoxedEnum CacheType
data CacheResponse =
CacheResponseFresh
| CacheResponseNeedsValidation
| CacheResponseStale
| AnotherCacheResponse Int
deriving (Int -> CacheResponse -> ShowS
[CacheResponse] -> ShowS
CacheResponse -> String
(Int -> CacheResponse -> ShowS)
-> (CacheResponse -> String)
-> ([CacheResponse] -> ShowS)
-> Show CacheResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CacheResponse -> ShowS
showsPrec :: Int -> CacheResponse -> ShowS
$cshow :: CacheResponse -> String
show :: CacheResponse -> String
$cshowList :: [CacheResponse] -> ShowS
showList :: [CacheResponse] -> ShowS
Show, CacheResponse -> CacheResponse -> Bool
(CacheResponse -> CacheResponse -> Bool)
-> (CacheResponse -> CacheResponse -> Bool) -> Eq CacheResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CacheResponse -> CacheResponse -> Bool
== :: CacheResponse -> CacheResponse -> Bool
$c/= :: CacheResponse -> CacheResponse -> Bool
/= :: CacheResponse -> CacheResponse -> Bool
Eq)
instance P.Enum CacheResponse where
fromEnum :: CacheResponse -> Int
fromEnum CacheResponse
CacheResponseFresh = Int
0
fromEnum CacheResponse
CacheResponseNeedsValidation = Int
1
fromEnum CacheResponse
CacheResponseStale = Int
2
fromEnum (AnotherCacheResponse Int
k) = Int
k
toEnum :: Int -> CacheResponse
toEnum Int
0 = CacheResponse
CacheResponseFresh
toEnum Int
1 = CacheResponse
CacheResponseNeedsValidation
toEnum Int
2 = CacheResponse
CacheResponseStale
toEnum Int
k = Int -> CacheResponse
AnotherCacheResponse Int
k
instance P.Ord CacheResponse where
compare :: CacheResponse -> CacheResponse -> Ordering
compare CacheResponse
a CacheResponse
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (CacheResponse -> Int
forall a. Enum a => a -> Int
P.fromEnum CacheResponse
a) (CacheResponse -> Int
forall a. Enum a => a -> Int
P.fromEnum CacheResponse
b)
type instance O.ParentTypes CacheResponse = '[]
instance O.HasParentTypes CacheResponse
foreign import ccall "soup_cache_response_get_type" c_soup_cache_response_get_type ::
IO GType
instance B.Types.TypedObject CacheResponse where
glibType :: IO GType
glibType = IO GType
c_soup_cache_response_get_type
instance B.Types.BoxedEnum CacheResponse
data AddressFamily =
AddressFamilyInvalid
| AddressFamilyIpv4
| AddressFamilyIpv6
| AnotherAddressFamily Int
deriving (Int -> AddressFamily -> ShowS
[AddressFamily] -> ShowS
AddressFamily -> String
(Int -> AddressFamily -> ShowS)
-> (AddressFamily -> String)
-> ([AddressFamily] -> ShowS)
-> Show AddressFamily
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AddressFamily -> ShowS
showsPrec :: Int -> AddressFamily -> ShowS
$cshow :: AddressFamily -> String
show :: AddressFamily -> String
$cshowList :: [AddressFamily] -> ShowS
showList :: [AddressFamily] -> ShowS
Show, AddressFamily -> AddressFamily -> Bool
(AddressFamily -> AddressFamily -> Bool)
-> (AddressFamily -> AddressFamily -> Bool) -> Eq AddressFamily
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddressFamily -> AddressFamily -> Bool
== :: AddressFamily -> AddressFamily -> Bool
$c/= :: AddressFamily -> AddressFamily -> Bool
/= :: AddressFamily -> AddressFamily -> Bool
Eq)
instance P.Enum AddressFamily where
fromEnum :: AddressFamily -> Int
fromEnum AddressFamily
AddressFamilyInvalid = Int
-1
fromEnum AddressFamily
AddressFamilyIpv4 = Int
2
fromEnum AddressFamily
AddressFamilyIpv6 = Int
10
fromEnum (AnotherAddressFamily Int
k) = Int
k
toEnum :: Int -> AddressFamily
toEnum Int
-1 = AddressFamily
AddressFamilyInvalid
toEnum Int
2 = AddressFamily
AddressFamilyIpv4
toEnum Int
10 = AddressFamily
AddressFamilyIpv6
toEnum Int
k = Int -> AddressFamily
AnotherAddressFamily Int
k
instance P.Ord AddressFamily where
compare :: AddressFamily -> AddressFamily -> Ordering
compare AddressFamily
a AddressFamily
b = Int -> Int -> Ordering
forall a. Ord a => a -> a -> Ordering
P.compare (AddressFamily -> Int
forall a. Enum a => a -> Int
P.fromEnum AddressFamily
a) (AddressFamily -> Int
forall a. Enum a => a -> Int
P.fromEnum AddressFamily
b)
type instance O.ParentTypes AddressFamily = '[]
instance O.HasParentTypes AddressFamily
foreign import ccall "soup_address_family_get_type" c_soup_address_family_get_type ::
IO GType
instance B.Types.TypedObject AddressFamily where
glibType :: IO GType
glibType = IO GType
c_soup_address_family_get_type
instance B.Types.BoxedEnum AddressFamily