module GI.Soup.Objects.Requester
(
Requester(..) ,
RequesterK ,
toRequester ,
noRequester ,
requesterNew ,
requesterRequest ,
requesterRequestUri ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Soup.Types
import GI.Soup.Callbacks
import qualified GI.GObject as GObject
newtype Requester = Requester (ForeignPtr Requester)
foreign import ccall "soup_requester_get_type"
c_soup_requester_get_type :: IO GType
type instance ParentTypes Requester = RequesterParentTypes
type RequesterParentTypes = '[GObject.Object, SessionFeature]
instance GObject Requester where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_soup_requester_get_type
class GObject o => RequesterK o
instance (GObject o, IsDescendantOf Requester o) => RequesterK o
toRequester :: RequesterK o => o -> IO Requester
toRequester = unsafeCastTo Requester
noRequester :: Maybe Requester
noRequester = Nothing
type instance AttributeList Requester = RequesterAttributeList
type RequesterAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList Requester = RequesterSignalList
type RequesterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "soup_requester_new" soup_requester_new ::
IO (Ptr Requester)
requesterNew ::
(MonadIO m) =>
m Requester
requesterNew = liftIO $ do
result <- soup_requester_new
checkUnexpectedReturnNULL "soup_requester_new" result
result' <- (wrapObject Requester) result
return result'
foreign import ccall "soup_requester_request" soup_requester_request ::
Ptr Requester ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Request)
requesterRequest ::
(MonadIO m, RequesterK a) =>
a ->
T.Text ->
m Request
requesterRequest _obj uri_string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri_string' <- textToCString uri_string
onException (do
result <- propagateGError $ soup_requester_request _obj' uri_string'
checkUnexpectedReturnNULL "soup_requester_request" result
result' <- (wrapObject Request) result
touchManagedPtr _obj
freeMem uri_string'
return result'
) (do
freeMem uri_string'
)
foreign import ccall "soup_requester_request_uri" soup_requester_request_uri ::
Ptr Requester ->
Ptr URI ->
Ptr (Ptr GError) ->
IO (Ptr Request)
requesterRequestUri ::
(MonadIO m, RequesterK a) =>
a ->
URI ->
m Request
requesterRequestUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let uri' = unsafeManagedPtrGetPtr uri
onException (do
result <- propagateGError $ soup_requester_request_uri _obj' uri'
checkUnexpectedReturnNULL "soup_requester_request_uri" result
result' <- (wrapObject Request) result
touchManagedPtr _obj
touchManagedPtr uri
return result'
) (do
return ()
)