#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Structs.MimeInfo
(
MimeInfo(..) ,
noMimeInfo ,
#if ENABLE_OVERLOADING
MimeInfoGetDescriptionMethodInfo ,
#endif
mimeInfoGetDescription ,
#if ENABLE_OVERLOADING
MimeInfoGetExtensionsMethodInfo ,
#endif
mimeInfoGetExtensions ,
#if ENABLE_OVERLOADING
MimeInfoGetMimeTypeMethodInfo ,
#endif
mimeInfoGetMimeType ,
#if ENABLE_OVERLOADING
MimeInfoRefMethodInfo ,
#endif
mimeInfoRef ,
#if ENABLE_OVERLOADING
MimeInfoUnrefMethodInfo ,
#endif
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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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.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
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
#if ENABLE_OVERLOADING
instance O.HasAttributeList MimeInfo
type instance O.AttributeList MimeInfo = MimeInfoAttributeList
type MimeInfoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
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'
#if ENABLE_OVERLOADING
data MimeInfoGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MimeInfoGetDescriptionMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoGetDescription
#endif
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'
#if ENABLE_OVERLOADING
data MimeInfoGetExtensionsMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m) => O.MethodInfo MimeInfoGetExtensionsMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoGetExtensions
#endif
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'
#if ENABLE_OVERLOADING
data MimeInfoGetMimeTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo MimeInfoGetMimeTypeMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoGetMimeType
#endif
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'
#if ENABLE_OVERLOADING
data MimeInfoRefMethodInfo
instance (signature ~ (m MimeInfo), MonadIO m) => O.MethodInfo MimeInfoRefMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoRef
#endif
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 ()
#if ENABLE_OVERLOADING
data MimeInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MimeInfoUnrefMethodInfo MimeInfo signature where
overloadedMethod _ = mimeInfoUnref
#endif
#if ENABLE_OVERLOADING
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) => OL.IsLabel t (MimeInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif