{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Structs.ApplicationInfo
(
ApplicationInfo(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveApplicationInfoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ApplicationInfoGetNameMethodInfo ,
#endif
applicationInfoGetName ,
#if defined(ENABLE_OVERLOADING)
ApplicationInfoGetVersionMethodInfo ,
#endif
applicationInfoGetVersion ,
applicationInfoNew ,
#if defined(ENABLE_OVERLOADING)
ApplicationInfoRefMethodInfo ,
#endif
applicationInfoRef ,
#if defined(ENABLE_OVERLOADING)
ApplicationInfoSetNameMethodInfo ,
#endif
applicationInfoSetName ,
#if defined(ENABLE_OVERLOADING)
ApplicationInfoSetVersionMethodInfo ,
#endif
applicationInfoSetVersion ,
#if defined(ENABLE_OVERLOADING)
ApplicationInfoUnrefMethodInfo ,
#endif
applicationInfoUnref ,
) 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.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.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
newtype ApplicationInfo = ApplicationInfo (SP.ManagedPtr ApplicationInfo)
deriving (ApplicationInfo -> ApplicationInfo -> Bool
(ApplicationInfo -> ApplicationInfo -> Bool)
-> (ApplicationInfo -> ApplicationInfo -> Bool)
-> Eq ApplicationInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ApplicationInfo -> ApplicationInfo -> Bool
$c/= :: ApplicationInfo -> ApplicationInfo -> Bool
== :: ApplicationInfo -> ApplicationInfo -> Bool
$c== :: ApplicationInfo -> ApplicationInfo -> Bool
Eq)
instance SP.ManagedPtrNewtype ApplicationInfo where
toManagedPtr :: ApplicationInfo -> ManagedPtr ApplicationInfo
toManagedPtr (ApplicationInfo ManagedPtr ApplicationInfo
p) = ManagedPtr ApplicationInfo
p
foreign import ccall "webkit_application_info_get_type" c_webkit_application_info_get_type ::
IO GType
type instance O.ParentTypes ApplicationInfo = '[]
instance O.HasParentTypes ApplicationInfo
instance B.Types.TypedObject ApplicationInfo where
glibType :: IO GType
glibType = IO GType
c_webkit_application_info_get_type
instance B.Types.GBoxed ApplicationInfo
instance B.GValue.IsGValue (Maybe ApplicationInfo) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_application_info_get_type
gvalueSet_ :: Ptr GValue -> Maybe ApplicationInfo -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ApplicationInfo
P.Nothing = Ptr GValue -> Ptr ApplicationInfo -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr ApplicationInfo
forall a. Ptr a
FP.nullPtr :: FP.Ptr ApplicationInfo)
gvalueSet_ Ptr GValue
gv (P.Just ApplicationInfo
obj) = ApplicationInfo -> (Ptr ApplicationInfo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ApplicationInfo
obj (Ptr GValue -> Ptr ApplicationInfo -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ApplicationInfo)
gvalueGet_ Ptr GValue
gv = do
Ptr ApplicationInfo
ptr <- Ptr GValue -> IO (Ptr ApplicationInfo)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr ApplicationInfo)
if Ptr ApplicationInfo
ptr Ptr ApplicationInfo -> Ptr ApplicationInfo -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ApplicationInfo
forall a. Ptr a
FP.nullPtr
then ApplicationInfo -> Maybe ApplicationInfo
forall a. a -> Maybe a
P.Just (ApplicationInfo -> Maybe ApplicationInfo)
-> IO ApplicationInfo -> IO (Maybe ApplicationInfo)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ApplicationInfo -> ApplicationInfo)
-> Ptr ApplicationInfo -> IO ApplicationInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr ApplicationInfo -> ApplicationInfo
ApplicationInfo Ptr ApplicationInfo
ptr
else Maybe ApplicationInfo -> IO (Maybe ApplicationInfo)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ApplicationInfo
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ApplicationInfo
type instance O.AttributeList ApplicationInfo = ApplicationInfoAttributeList
type ApplicationInfoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_application_info_new" webkit_application_info_new ::
IO (Ptr ApplicationInfo)
applicationInfoNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ApplicationInfo
applicationInfoNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m ApplicationInfo
applicationInfoNew = IO ApplicationInfo -> m ApplicationInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ApplicationInfo -> m ApplicationInfo)
-> IO ApplicationInfo -> m ApplicationInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
result <- IO (Ptr ApplicationInfo)
webkit_application_info_new
Text -> Ptr ApplicationInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationInfoNew" Ptr ApplicationInfo
result
ApplicationInfo
result' <- ((ManagedPtr ApplicationInfo -> ApplicationInfo)
-> Ptr ApplicationInfo -> IO ApplicationInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr ApplicationInfo -> ApplicationInfo
ApplicationInfo) Ptr ApplicationInfo
result
ApplicationInfo -> IO ApplicationInfo
forall (m :: * -> *) a. Monad m => a -> m a
return ApplicationInfo
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_application_info_get_name" webkit_application_info_get_name ::
Ptr ApplicationInfo ->
IO CString
applicationInfoGetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
ApplicationInfo
-> m T.Text
applicationInfoGetName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ApplicationInfo -> m Text
applicationInfoGetName ApplicationInfo
info = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
info' <- ApplicationInfo -> IO (Ptr ApplicationInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ApplicationInfo
info
CString
result <- Ptr ApplicationInfo -> IO CString
webkit_application_info_get_name Ptr ApplicationInfo
info'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationInfoGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
ApplicationInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ApplicationInfo
info
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationInfoGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod ApplicationInfoGetNameMethodInfo ApplicationInfo signature where
overloadedMethod = applicationInfoGetName
instance O.OverloadedMethodInfo ApplicationInfoGetNameMethodInfo ApplicationInfo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ApplicationInfo.applicationInfoGetName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ApplicationInfo.html#v:applicationInfoGetName"
}
#endif
foreign import ccall "webkit_application_info_get_version" webkit_application_info_get_version ::
Ptr ApplicationInfo ->
Ptr Word64 ->
Ptr Word64 ->
Ptr Word64 ->
IO ()
applicationInfoGetVersion ::
(B.CallStack.HasCallStack, MonadIO m) =>
ApplicationInfo
-> m ((Word64, Word64, Word64))
applicationInfoGetVersion :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ApplicationInfo -> m (Word64, Word64, Word64)
applicationInfoGetVersion ApplicationInfo
info = IO (Word64, Word64, Word64) -> m (Word64, Word64, Word64)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Word64, Word64, Word64) -> m (Word64, Word64, Word64))
-> IO (Word64, Word64, Word64) -> m (Word64, Word64, Word64)
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
info' <- ApplicationInfo -> IO (Ptr ApplicationInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ApplicationInfo
info
Ptr Word64
major <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr Word64
minor <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr Word64
micro <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
Ptr ApplicationInfo
-> Ptr Word64 -> Ptr Word64 -> Ptr Word64 -> IO ()
webkit_application_info_get_version Ptr ApplicationInfo
info' Ptr Word64
major Ptr Word64
minor Ptr Word64
micro
Word64
major' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
major
Word64
minor' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
minor
Word64
micro' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
micro
ApplicationInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ApplicationInfo
info
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
major
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
minor
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
micro
(Word64, Word64, Word64) -> IO (Word64, Word64, Word64)
forall (m :: * -> *) a. Monad m => a -> m a
return (Word64
major', Word64
minor', Word64
micro')
#if defined(ENABLE_OVERLOADING)
data ApplicationInfoGetVersionMethodInfo
instance (signature ~ (m ((Word64, Word64, Word64))), MonadIO m) => O.OverloadedMethod ApplicationInfoGetVersionMethodInfo ApplicationInfo signature where
overloadedMethod = applicationInfoGetVersion
instance O.OverloadedMethodInfo ApplicationInfoGetVersionMethodInfo ApplicationInfo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ApplicationInfo.applicationInfoGetVersion",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ApplicationInfo.html#v:applicationInfoGetVersion"
}
#endif
foreign import ccall "webkit_application_info_ref" webkit_application_info_ref ::
Ptr ApplicationInfo ->
IO (Ptr ApplicationInfo)
applicationInfoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
ApplicationInfo
-> m ApplicationInfo
applicationInfoRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ApplicationInfo -> m ApplicationInfo
applicationInfoRef ApplicationInfo
info = IO ApplicationInfo -> m ApplicationInfo
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ApplicationInfo -> m ApplicationInfo)
-> IO ApplicationInfo -> m ApplicationInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
info' <- ApplicationInfo -> IO (Ptr ApplicationInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ApplicationInfo
info
Ptr ApplicationInfo
result <- Ptr ApplicationInfo -> IO (Ptr ApplicationInfo)
webkit_application_info_ref Ptr ApplicationInfo
info'
Text -> Ptr ApplicationInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationInfoRef" Ptr ApplicationInfo
result
ApplicationInfo
result' <- ((ManagedPtr ApplicationInfo -> ApplicationInfo)
-> Ptr ApplicationInfo -> IO ApplicationInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr ApplicationInfo -> ApplicationInfo
ApplicationInfo) Ptr ApplicationInfo
result
ApplicationInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ApplicationInfo
info
ApplicationInfo -> IO ApplicationInfo
forall (m :: * -> *) a. Monad m => a -> m a
return ApplicationInfo
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationInfoRefMethodInfo
instance (signature ~ (m ApplicationInfo), MonadIO m) => O.OverloadedMethod ApplicationInfoRefMethodInfo ApplicationInfo signature where
overloadedMethod = applicationInfoRef
instance O.OverloadedMethodInfo ApplicationInfoRefMethodInfo ApplicationInfo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ApplicationInfo.applicationInfoRef",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ApplicationInfo.html#v:applicationInfoRef"
}
#endif
foreign import ccall "webkit_application_info_set_name" webkit_application_info_set_name ::
Ptr ApplicationInfo ->
CString ->
IO ()
applicationInfoSetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
ApplicationInfo
-> T.Text
-> m ()
applicationInfoSetName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ApplicationInfo -> Text -> m ()
applicationInfoSetName ApplicationInfo
info Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
info' <- ApplicationInfo -> IO (Ptr ApplicationInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ApplicationInfo
info
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr ApplicationInfo -> CString -> IO ()
webkit_application_info_set_name Ptr ApplicationInfo
info' CString
name'
ApplicationInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ApplicationInfo
info
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationInfoSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod ApplicationInfoSetNameMethodInfo ApplicationInfo signature where
overloadedMethod = applicationInfoSetName
instance O.OverloadedMethodInfo ApplicationInfoSetNameMethodInfo ApplicationInfo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ApplicationInfo.applicationInfoSetName",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ApplicationInfo.html#v:applicationInfoSetName"
}
#endif
foreign import ccall "webkit_application_info_set_version" webkit_application_info_set_version ::
Ptr ApplicationInfo ->
Word64 ->
Word64 ->
Word64 ->
IO ()
applicationInfoSetVersion ::
(B.CallStack.HasCallStack, MonadIO m) =>
ApplicationInfo
-> Word64
-> Word64
-> Word64
-> m ()
applicationInfoSetVersion :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ApplicationInfo -> Word64 -> Word64 -> Word64 -> m ()
applicationInfoSetVersion ApplicationInfo
info Word64
major Word64
minor Word64
micro = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
info' <- ApplicationInfo -> IO (Ptr ApplicationInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ApplicationInfo
info
Ptr ApplicationInfo -> Word64 -> Word64 -> Word64 -> IO ()
webkit_application_info_set_version Ptr ApplicationInfo
info' Word64
major Word64
minor Word64
micro
ApplicationInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ApplicationInfo
info
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationInfoSetVersionMethodInfo
instance (signature ~ (Word64 -> Word64 -> Word64 -> m ()), MonadIO m) => O.OverloadedMethod ApplicationInfoSetVersionMethodInfo ApplicationInfo signature where
overloadedMethod = applicationInfoSetVersion
instance O.OverloadedMethodInfo ApplicationInfoSetVersionMethodInfo ApplicationInfo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ApplicationInfo.applicationInfoSetVersion",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ApplicationInfo.html#v:applicationInfoSetVersion"
}
#endif
foreign import ccall "webkit_application_info_unref" webkit_application_info_unref ::
Ptr ApplicationInfo ->
IO ()
applicationInfoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
ApplicationInfo
-> m ()
applicationInfoUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ApplicationInfo -> m ()
applicationInfoUnref ApplicationInfo
info = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationInfo
info' <- ApplicationInfo -> IO (Ptr ApplicationInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ApplicationInfo
info
Ptr ApplicationInfo -> IO ()
webkit_application_info_unref Ptr ApplicationInfo
info'
ApplicationInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ApplicationInfo
info
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationInfoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod ApplicationInfoUnrefMethodInfo ApplicationInfo signature where
overloadedMethod = applicationInfoUnref
instance O.OverloadedMethodInfo ApplicationInfoUnrefMethodInfo ApplicationInfo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2.Structs.ApplicationInfo.applicationInfoUnref",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.27/docs/GI-WebKit2-Structs-ApplicationInfo.html#v:applicationInfoUnref"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveApplicationInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveApplicationInfoMethod "ref" o = ApplicationInfoRefMethodInfo
ResolveApplicationInfoMethod "unref" o = ApplicationInfoUnrefMethodInfo
ResolveApplicationInfoMethod "getName" o = ApplicationInfoGetNameMethodInfo
ResolveApplicationInfoMethod "getVersion" o = ApplicationInfoGetVersionMethodInfo
ResolveApplicationInfoMethod "setName" o = ApplicationInfoSetNameMethodInfo
ResolveApplicationInfoMethod "setVersion" o = ApplicationInfoSetVersionMethodInfo
ResolveApplicationInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveApplicationInfoMethod t ApplicationInfo, O.OverloadedMethod info ApplicationInfo p) => OL.IsLabel t (ApplicationInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveApplicationInfoMethod t ApplicationInfo, O.OverloadedMethod info ApplicationInfo p, R.HasField t ApplicationInfo p) => R.HasField t ApplicationInfo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveApplicationInfoMethod t ApplicationInfo, O.OverloadedMethodInfo info ApplicationInfo) => OL.IsLabel t (O.MethodProxy info ApplicationInfo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif