module GI.WebKit2.Structs.MimeInfo
(
MimeInfo(..) ,
noMimeInfo ,
MimeInfoGetDescriptionMethodInfo ,
mimeInfoGetDescription ,
MimeInfoGetExtensionsMethodInfo ,
mimeInfoGetExtensions ,
MimeInfoGetMimeTypeMethodInfo ,
mimeInfoGetMimeType ,
MimeInfoRefMethodInfo ,
mimeInfoRef ,
MimeInfoUnrefMethodInfo ,
mimeInfoUnref ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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
newtype MimeInfo = MimeInfo (ManagedPtr MimeInfo)
foreign import ccall "webkit_mime_info_get_type" c_webkit_mime_info_get_type ::
IO GType
instance BoxedObject MimeInfo where
boxedType _ = c_webkit_mime_info_get_type
noMimeInfo :: Maybe MimeInfo
noMimeInfo = Nothing
instance O.HasAttributeList MimeInfo
type instance O.AttributeList MimeInfo = MimeInfoAttributeList
type MimeInfoAttributeList = ('[ ] :: [(Symbol, *)])
foreign import ccall "webkit_mime_info_get_description" webkit_mime_info_get_description ::
Ptr MimeInfo ->
IO CString
mimeInfoGetDescription ::
(B.CallStack.HasCallStack, MonadIO m) =>
MimeInfo
-> m T.Text
mimeInfoGetDescription info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- webkit_mime_info_get_description info'
checkUnexpectedReturnNULL "mimeInfoGetDescription" result
result' <- cstringToText result
touchManagedPtr info
return result'
data MimeInfoGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MimeInfoGetDescriptionMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoGetDescription
foreign import ccall "webkit_mime_info_get_extensions" webkit_mime_info_get_extensions ::
Ptr MimeInfo ->
IO (Ptr CString)
mimeInfoGetExtensions ::
(B.CallStack.HasCallStack, MonadIO m) =>
MimeInfo
-> m [T.Text]
mimeInfoGetExtensions info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- webkit_mime_info_get_extensions info'
checkUnexpectedReturnNULL "mimeInfoGetExtensions" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr info
return result'
data MimeInfoGetExtensionsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m) => O.MethodInfo MimeInfoGetExtensionsMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoGetExtensions
foreign import ccall "webkit_mime_info_get_mime_type" webkit_mime_info_get_mime_type ::
Ptr MimeInfo ->
IO CString
mimeInfoGetMimeType ::
(B.CallStack.HasCallStack, MonadIO m) =>
MimeInfo
-> m T.Text
mimeInfoGetMimeType info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- webkit_mime_info_get_mime_type info'
checkUnexpectedReturnNULL "mimeInfoGetMimeType" result
result' <- cstringToText result
touchManagedPtr info
return result'
data MimeInfoGetMimeTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MimeInfoGetMimeTypeMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoGetMimeType
foreign import ccall "webkit_mime_info_ref" webkit_mime_info_ref ::
Ptr MimeInfo ->
IO (Ptr MimeInfo)
mimeInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
MimeInfo
-> m MimeInfo
mimeInfoRef info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
result <- webkit_mime_info_ref info'
checkUnexpectedReturnNULL "mimeInfoRef" result
result' <- (wrapBoxed MimeInfo) result
touchManagedPtr info
return result'
data MimeInfoRefMethodInfo
instance (signature ~ (m MimeInfo), MonadIO m) => O.MethodInfo MimeInfoRefMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoRef
foreign import ccall "webkit_mime_info_unref" webkit_mime_info_unref ::
Ptr MimeInfo ->
IO ()
mimeInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
MimeInfo
-> m ()
mimeInfoUnref info = liftIO $ do
info' <- unsafeManagedPtrGetPtr info
webkit_mime_info_unref info'
touchManagedPtr info
return ()
data MimeInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MimeInfoUnrefMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoUnref
type family ResolveMimeInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveMimeInfoMethod "ref" o = MimeInfoRefMethodInfo
ResolveMimeInfoMethod "unref" o = MimeInfoUnrefMethodInfo
ResolveMimeInfoMethod "getDescription" o = MimeInfoGetDescriptionMethodInfo
ResolveMimeInfoMethod "getExtensions" o = MimeInfoGetExtensionsMethodInfo
ResolveMimeInfoMethod "getMimeType" o = MimeInfoGetMimeTypeMethodInfo
ResolveMimeInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMimeInfoMethod t MimeInfo, O.MethodInfo info MimeInfo p) => O.IsLabelProxy t (MimeInfo -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveMimeInfoMethod t MimeInfo, O.MethodInfo info MimeInfo p) => O.IsLabel t (MimeInfo -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif