diff --git a/GI/Notify.hs b/GI/Notify.hs --- a/GI/Notify.hs +++ b/GI/Notify.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,6 +14,10 @@ module GI.Notify.Objects , + + module Data.GI.Base , + + ) where import GI.Notify.Callbacks @@ -31,4 +36,5 @@ import GI.Notify.Types import GI.Notify.Callbacks +import Data.GI.Base diff --git a/GI/Notify/Callbacks.hs b/GI/Notify/Callbacks.hs --- a/GI/Notify/Callbacks.hs +++ b/GI/Notify/Callbacks.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Notify/Constants.hs b/GI/Notify/Constants.hs --- a/GI/Notify/Constants.hs +++ b/GI/Notify/Constants.hs @@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Notify/Enums.hs b/GI/Notify/Enums.hs --- a/GI/Notify/Enums.hs +++ b/GI/Notify/Enums.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Notify/Functions.hs b/GI/Notify/Functions.hs --- a/GI/Notify/Functions.hs +++ b/GI/Notify/Functions.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -54,7 +55,6 @@ -- function notify_uninit -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -65,16 +65,15 @@ uninit :: (MonadIO m) => - m () + m () -- result uninit = liftIO $ do notify_uninit return () -- function notify_set_app_name --- Args : [Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -86,19 +85,18 @@ setAppName :: (MonadIO m) => - T.Text -> -- app_name - m () -setAppName app_name = liftIO $ do - app_name' <- textToCString app_name - notify_set_app_name app_name' - freeMem app_name' + T.Text -- appName + -> m () -- result +setAppName appName = liftIO $ do + appName' <- textToCString appName + notify_set_app_name appName' + freeMem appName' return () -- function notify_is_initted -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -109,7 +107,7 @@ isInitted :: (MonadIO m) => - m Bool + m Bool -- result isInitted = liftIO $ do result <- notify_is_initted let result' = (/= 0) result @@ -117,9 +115,8 @@ -- function notify_init --- Args : [Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -131,20 +128,19 @@ init :: (MonadIO m) => - T.Text -> -- app_name - m Bool -init app_name = liftIO $ do - app_name' <- textToCString app_name - result <- notify_init app_name' + T.Text -- appName + -> m Bool -- result +init appName = liftIO $ do + appName' <- textToCString appName + result <- notify_init appName' let result' = (/= 0) result - freeMem app_name' + freeMem appName' return result' -- function notify_get_server_info --- Args : [Arg {argName = "ret_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ret_vendor", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ret_version", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ret_spec_version", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Args : [Arg {argCName = "ret_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ret_vendor", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ret_version", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ret_spec_version", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- hInArgs : [] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -159,37 +155,36 @@ getServerInfo :: (MonadIO m) => - m (Bool,T.Text,T.Text,T.Text,T.Text) + m (Bool,T.Text,T.Text,T.Text,T.Text) -- result getServerInfo = liftIO $ do - ret_name <- allocMem :: IO (Ptr CString) - ret_vendor <- allocMem :: IO (Ptr CString) - ret_version <- allocMem :: IO (Ptr CString) - ret_spec_version <- allocMem :: IO (Ptr CString) - result <- notify_get_server_info ret_name ret_vendor ret_version ret_spec_version + retName <- allocMem :: IO (Ptr CString) + retVendor <- allocMem :: IO (Ptr CString) + retVersion <- allocMem :: IO (Ptr CString) + retSpecVersion <- allocMem :: IO (Ptr CString) + result <- notify_get_server_info retName retVendor retVersion retSpecVersion let result' = (/= 0) result - ret_name' <- peek ret_name - ret_name'' <- cstringToText ret_name' - freeMem ret_name' - ret_vendor' <- peek ret_vendor - ret_vendor'' <- cstringToText ret_vendor' - freeMem ret_vendor' - ret_version' <- peek ret_version - ret_version'' <- cstringToText ret_version' - freeMem ret_version' - ret_spec_version' <- peek ret_spec_version - ret_spec_version'' <- cstringToText ret_spec_version' - freeMem ret_spec_version' - freeMem ret_name - freeMem ret_vendor - freeMem ret_version - freeMem ret_spec_version - return (result', ret_name'', ret_vendor'', ret_version'', ret_spec_version'') + retName' <- peek retName + retName'' <- cstringToText retName' + freeMem retName' + retVendor' <- peek retVendor + retVendor'' <- cstringToText retVendor' + freeMem retVendor' + retVersion' <- peek retVersion + retVersion'' <- cstringToText retVersion' + freeMem retVersion' + retSpecVersion' <- peek retSpecVersion + retSpecVersion'' <- cstringToText retSpecVersion' + freeMem retSpecVersion' + freeMem retName + freeMem retVendor + freeMem retVersion + freeMem retSpecVersion + return (result', retName'', retVendor'', retVersion'', retSpecVersion'') -- function notify_get_server_caps -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TGList (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -200,7 +195,7 @@ getServerCaps :: (MonadIO m) => - m [T.Text] + m [T.Text] -- result getServerCaps = liftIO $ do result <- notify_get_server_caps checkUnexpectedReturnNULL "notify_get_server_caps" result @@ -214,7 +209,6 @@ -- function notify_get_app_name -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -225,7 +219,7 @@ getAppName :: (MonadIO m) => - m T.Text + m T.Text -- result getAppName = liftIO $ do result <- notify_get_app_name checkUnexpectedReturnNULL "notify_get_app_name" result diff --git a/GI/Notify/Objects.hs b/GI/Notify/Objects.hs --- a/GI/Notify/Objects.hs +++ b/GI/Notify/Objects.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/Notify/Objects/Notification.hs b/GI/Notify/Objects/Notification.hs --- a/GI/Notify/Objects/Notification.hs +++ b/GI/Notify/Objects/Notification.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** notificationAddAction + NotificationAddActionMethodInfo , notificationAddAction , -- ** notificationClearActions + NotificationClearActionsMethodInfo , notificationClearActions , -- ** notificationClearHints + NotificationClearHintsMethodInfo , notificationClearHints , -- ** notificationClose + NotificationCloseMethodInfo , notificationClose , -- ** notificationGetClosedReason + NotificationGetClosedReasonMethodInfo , notificationGetClosedReason , @@ -41,62 +47,77 @@ -- ** notificationSetAppName + NotificationSetAppNameMethodInfo , notificationSetAppName , -- ** notificationSetCategory + NotificationSetCategoryMethodInfo , notificationSetCategory , -- ** notificationSetHint + NotificationSetHintMethodInfo , notificationSetHint , -- ** notificationSetHintByte + NotificationSetHintByteMethodInfo , notificationSetHintByte , -- ** notificationSetHintByteArray + NotificationSetHintByteArrayMethodInfo , notificationSetHintByteArray , -- ** notificationSetHintDouble + NotificationSetHintDoubleMethodInfo , notificationSetHintDouble , -- ** notificationSetHintInt32 + NotificationSetHintInt32MethodInfo , notificationSetHintInt32 , -- ** notificationSetHintString + NotificationSetHintStringMethodInfo , notificationSetHintString , -- ** notificationSetHintUint32 + NotificationSetHintUint32MethodInfo , notificationSetHintUint32 , -- ** notificationSetIconFromPixbuf + NotificationSetIconFromPixbufMethodInfo , notificationSetIconFromPixbuf , -- ** notificationSetImageFromPixbuf + NotificationSetImageFromPixbufMethodInfo, notificationSetImageFromPixbuf , -- ** notificationSetTimeout + NotificationSetTimeoutMethodInfo , notificationSetTimeout , -- ** notificationSetUrgency + NotificationSetUrgencyMethodInfo , notificationSetUrgency , -- ** notificationShow + NotificationShowMethodInfo , notificationShow , -- ** notificationUpdate + NotificationUpdateMethodInfo , notificationUpdate , @@ -196,6 +217,59 @@ noNotification :: Maybe Notification noNotification = Nothing +type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where + ResolveNotificationMethod "addAction" o = NotificationAddActionMethodInfo + ResolveNotificationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveNotificationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveNotificationMethod "clearActions" o = NotificationClearActionsMethodInfo + ResolveNotificationMethod "clearHints" o = NotificationClearHintsMethodInfo + ResolveNotificationMethod "close" o = NotificationCloseMethodInfo + ResolveNotificationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveNotificationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveNotificationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveNotificationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveNotificationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveNotificationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveNotificationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveNotificationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveNotificationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveNotificationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveNotificationMethod "show" o = NotificationShowMethodInfo + ResolveNotificationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveNotificationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveNotificationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveNotificationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveNotificationMethod "update" o = NotificationUpdateMethodInfo + ResolveNotificationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveNotificationMethod "getClosedReason" o = NotificationGetClosedReasonMethodInfo + ResolveNotificationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveNotificationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveNotificationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveNotificationMethod "setAppName" o = NotificationSetAppNameMethodInfo + ResolveNotificationMethod "setCategory" o = NotificationSetCategoryMethodInfo + ResolveNotificationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveNotificationMethod "setHint" o = NotificationSetHintMethodInfo + ResolveNotificationMethod "setHintByte" o = NotificationSetHintByteMethodInfo + ResolveNotificationMethod "setHintByteArray" o = NotificationSetHintByteArrayMethodInfo + ResolveNotificationMethod "setHintDouble" o = NotificationSetHintDoubleMethodInfo + ResolveNotificationMethod "setHintInt32" o = NotificationSetHintInt32MethodInfo + ResolveNotificationMethod "setHintString" o = NotificationSetHintStringMethodInfo + ResolveNotificationMethod "setHintUint32" o = NotificationSetHintUint32MethodInfo + ResolveNotificationMethod "setIconFromPixbuf" o = NotificationSetIconFromPixbufMethodInfo + ResolveNotificationMethod "setImageFromPixbuf" o = NotificationSetImageFromPixbufMethodInfo + ResolveNotificationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveNotificationMethod "setTimeout" o = NotificationSetTimeoutMethodInfo + ResolveNotificationMethod "setUrgency" o = NotificationSetUrgencyMethodInfo + ResolveNotificationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabelProxy t (Notification -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabel t (Notification -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal Notification::closed type NotificationClosedCallback = IO () @@ -253,7 +327,7 @@ type AttrSetTypeConstraint NotificationAppNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotificationAppNamePropertyInfo = NotificationK type AttrGetType NotificationAppNamePropertyInfo = T.Text - type AttrLabel NotificationAppNamePropertyInfo = "Notification::app-name" + type AttrLabel NotificationAppNamePropertyInfo = "app-name" attrGet _ = getNotificationAppName attrSet _ = setNotificationAppName attrConstruct _ = constructNotificationAppName @@ -277,7 +351,7 @@ type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK type AttrGetType NotificationBodyPropertyInfo = T.Text - type AttrLabel NotificationBodyPropertyInfo = "Notification::body" + type AttrLabel NotificationBodyPropertyInfo = "body" attrGet _ = getNotificationBody attrSet _ = setNotificationBody attrConstruct _ = constructNotificationBody @@ -295,7 +369,7 @@ type AttrSetTypeConstraint NotificationClosedReasonPropertyInfo = (~) () type AttrBaseTypeConstraint NotificationClosedReasonPropertyInfo = NotificationK type AttrGetType NotificationClosedReasonPropertyInfo = Int32 - type AttrLabel NotificationClosedReasonPropertyInfo = "Notification::closed-reason" + type AttrLabel NotificationClosedReasonPropertyInfo = "closed-reason" attrGet _ = getNotificationClosedReason attrSet _ = undefined attrConstruct _ = undefined @@ -319,7 +393,7 @@ type AttrSetTypeConstraint NotificationIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotificationIconNamePropertyInfo = NotificationK type AttrGetType NotificationIconNamePropertyInfo = T.Text - type AttrLabel NotificationIconNamePropertyInfo = "Notification::icon-name" + type AttrLabel NotificationIconNamePropertyInfo = "icon-name" attrGet _ = getNotificationIconName attrSet _ = setNotificationIconName attrConstruct _ = constructNotificationIconName @@ -343,7 +417,7 @@ type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint NotificationIdPropertyInfo = NotificationK type AttrGetType NotificationIdPropertyInfo = Int32 - type AttrLabel NotificationIdPropertyInfo = "Notification::id" + type AttrLabel NotificationIdPropertyInfo = "id" attrGet _ = getNotificationId attrSet _ = setNotificationId attrConstruct _ = constructNotificationId @@ -367,13 +441,13 @@ type AttrSetTypeConstraint NotificationSummaryPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotificationSummaryPropertyInfo = NotificationK type AttrGetType NotificationSummaryPropertyInfo = T.Text - type AttrLabel NotificationSummaryPropertyInfo = "Notification::summary" + type AttrLabel NotificationSummaryPropertyInfo = "summary" attrGet _ = getNotificationSummary attrSet _ = setNotificationSummary attrConstruct _ = constructNotificationSummary type instance AttributeList Notification = NotificationAttributeList -type NotificationAttributeList = ('[ '("app-name", NotificationAppNamePropertyInfo), '("body", NotificationBodyPropertyInfo), '("closed-reason", NotificationClosedReasonPropertyInfo), '("icon-name", NotificationIconNamePropertyInfo), '("id", NotificationIdPropertyInfo), '("summary", NotificationSummaryPropertyInfo)] :: [(Symbol, *)]) +type NotificationAttributeList = ('[ '("appName", NotificationAppNamePropertyInfo), '("body", NotificationBodyPropertyInfo), '("closedReason", NotificationClosedReasonPropertyInfo), '("iconName", NotificationIconNamePropertyInfo), '("id", NotificationIdPropertyInfo), '("summary", NotificationSummaryPropertyInfo)] :: [(Symbol, *)]) data NotificationClosedSignalInfo instance SignalInfo NotificationClosedSignalInfo where @@ -381,13 +455,12 @@ connectSignal _ = connectNotificationClosed type instance SignalList Notification = NotificationSignalList -type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Notification::new -- method type : Constructor --- Args : [Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Notify" "Notification" -- throws : False -- Skip return : False @@ -401,10 +474,10 @@ notificationNew :: (MonadIO m) => - T.Text -> -- summary - Maybe (T.Text) -> -- body - Maybe (T.Text) -> -- icon - m Notification + T.Text -- summary + -> Maybe (T.Text) -- body + -> Maybe (T.Text) -- icon + -> m Notification -- result notificationNew summary body icon = liftIO $ do summary' <- textToCString summary maybeBody <- case body of @@ -427,9 +500,8 @@ -- method Notification::add_action -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Notify" "ActionCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Notify" "ActionCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Notify" "ActionCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -446,29 +518,32 @@ notificationAddAction :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- action - T.Text -> -- label - ActionCallback -> -- callback - m () + a -- _obj + -> T.Text -- action + -> T.Text -- label + -> ActionCallback -- callback + -> m () -- result notificationAddAction _obj action label callback = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj action' <- textToCString action label' <- textToCString label callback' <- mkActionCallback (actionCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let free_func = safeFreeFunPtrPtr - notify_notification_add_action _obj' action' label' callback' user_data free_func + let userData = castFunPtrToPtr callback' + let freeFunc = safeFreeFunPtrPtr + notify_notification_add_action _obj' action' label' callback' userData freeFunc touchManagedPtr _obj freeMem action' freeMem label' return () +data NotificationAddActionMethodInfo +instance (signature ~ (T.Text -> T.Text -> ActionCallback -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationAddActionMethodInfo a signature where + overloadedMethod _ = notificationAddAction + -- method Notification::clear_actions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -480,19 +555,22 @@ notificationClearActions :: (MonadIO m, NotificationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result notificationClearActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj notify_notification_clear_actions _obj' touchManagedPtr _obj return () +data NotificationClearActionsMethodInfo +instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationClearActionsMethodInfo a signature where + overloadedMethod _ = notificationClearActions + -- method Notification::clear_hints -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -504,19 +582,22 @@ notificationClearHints :: (MonadIO m, NotificationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result notificationClearHints _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj notify_notification_clear_hints _obj' touchManagedPtr _obj return () +data NotificationClearHintsMethodInfo +instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationClearHintsMethodInfo a signature where + overloadedMethod _ = notificationClearHints + -- method Notification::close -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -529,8 +610,8 @@ notificationClose :: (MonadIO m, NotificationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result notificationClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -541,11 +622,14 @@ return () ) +data NotificationCloseMethodInfo +instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationCloseMethodInfo a signature where + overloadedMethod _ = notificationClose + -- method Notification::get_closed_reason -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -557,19 +641,22 @@ notificationGetClosedReason :: (MonadIO m, NotificationK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result notificationGetClosedReason _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- notify_notification_get_closed_reason _obj' touchManagedPtr _obj return result +data NotificationGetClosedReasonMethodInfo +instance (signature ~ (m Int32), MonadIO m, NotificationK a) => MethodInfo NotificationGetClosedReasonMethodInfo a signature where + overloadedMethod _ = notificationGetClosedReason + -- method Notification::set_app_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -582,22 +669,25 @@ notificationSetAppName :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- app_name - m () -notificationSetAppName _obj app_name = liftIO $ do + a -- _obj + -> T.Text -- appName + -> m () -- result +notificationSetAppName _obj appName = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - app_name' <- textToCString app_name - notify_notification_set_app_name _obj' app_name' + appName' <- textToCString appName + notify_notification_set_app_name _obj' appName' touchManagedPtr _obj - freeMem app_name' + freeMem appName' return () +data NotificationSetAppNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetAppNameMethodInfo a signature where + overloadedMethod _ = notificationSetAppName + -- method Notification::set_category -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -610,9 +700,9 @@ notificationSetCategory :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- category - m () + a -- _obj + -> T.Text -- category + -> m () -- result notificationSetCategory _obj category = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj category' <- textToCString category @@ -621,11 +711,14 @@ freeMem category' return () +data NotificationSetCategoryMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetCategoryMethodInfo a signature where + overloadedMethod _ = notificationSetCategory + -- method Notification::set_hint -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -639,10 +732,10 @@ notificationSetHint :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - Maybe (GVariant) -> -- value - m () + a -- _obj + -> T.Text -- key + -> Maybe (GVariant) -- value + -> m () -- result notificationSetHint _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -656,11 +749,14 @@ freeMem key' return () +data NotificationSetHintMethodInfo +instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintMethodInfo a signature where + overloadedMethod _ = notificationSetHint + -- method Notification::set_hint_byte -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -674,10 +770,10 @@ {-# DEPRECATED notificationSetHintByte ["(Since version 0.6.)","Use notify_notification_set_hint() instead"]#-} notificationSetHintByte :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - Word8 -> -- value - m () + a -- _obj + -> T.Text -- key + -> Word8 -- value + -> m () -- result notificationSetHintByte _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -686,11 +782,14 @@ freeMem key' return () +data NotificationSetHintByteMethodInfo +instance (signature ~ (T.Text -> Word8 -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintByteMethodInfo a signature where + overloadedMethod _ = notificationSetHintByte + -- method Notification::set_hint_byte_array -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -705,11 +804,11 @@ {-# DEPRECATED notificationSetHintByteArray ["(Since version 0.6.)","Use notify_notification_set_hint() instead"]#-} notificationSetHintByteArray :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - Word8 -> -- value - Word64 -> -- len - m () + a -- _obj + -> T.Text -- key + -> Word8 -- value + -> Word64 -- len + -> m () -- result notificationSetHintByteArray _obj key value len = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -718,11 +817,14 @@ freeMem key' return () +data NotificationSetHintByteArrayMethodInfo +instance (signature ~ (T.Text -> Word8 -> Word64 -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintByteArrayMethodInfo a signature where + overloadedMethod _ = notificationSetHintByteArray + -- method Notification::set_hint_double -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -736,10 +838,10 @@ {-# DEPRECATED notificationSetHintDouble ["(Since version 0.6.)","Use notify_notification_set_hint() instead"]#-} notificationSetHintDouble :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - Double -> -- value - m () + a -- _obj + -> T.Text -- key + -> Double -- value + -> m () -- result notificationSetHintDouble _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -749,11 +851,14 @@ freeMem key' return () +data NotificationSetHintDoubleMethodInfo +instance (signature ~ (T.Text -> Double -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintDoubleMethodInfo a signature where + overloadedMethod _ = notificationSetHintDouble + -- method Notification::set_hint_int32 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -767,10 +872,10 @@ {-# DEPRECATED notificationSetHintInt32 ["(Since version 0.6.)","Use notify_notification_set_hint() instead"]#-} notificationSetHintInt32 :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- value - m () + a -- _obj + -> T.Text -- key + -> Int32 -- value + -> m () -- result notificationSetHintInt32 _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -779,11 +884,14 @@ freeMem key' return () +data NotificationSetHintInt32MethodInfo +instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintInt32MethodInfo a signature where + overloadedMethod _ = notificationSetHintInt32 + -- method Notification::set_hint_string -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -797,10 +905,10 @@ {-# DEPRECATED notificationSetHintString ["(Since version 0.6.)","Use notify_notification_set_hint() instead"]#-} notificationSetHintString :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - T.Text -> -- value - m () + a -- _obj + -> T.Text -- key + -> T.Text -- value + -> m () -- result notificationSetHintString _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -811,11 +919,14 @@ freeMem value' return () +data NotificationSetHintStringMethodInfo +instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintStringMethodInfo a signature where + overloadedMethod _ = notificationSetHintString + -- method Notification::set_hint_uint32 -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -829,10 +940,10 @@ {-# DEPRECATED notificationSetHintUint32 ["(Since version 0.6.)","Use notify_notification_set_hint() instead"]#-} notificationSetHintUint32 :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- key - Word32 -> -- value - m () + a -- _obj + -> T.Text -- key + -> Word32 -- value + -> m () -- result notificationSetHintUint32 _obj key value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj key' <- textToCString key @@ -841,11 +952,14 @@ freeMem key' return () +data NotificationSetHintUint32MethodInfo +instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetHintUint32MethodInfo a signature where + overloadedMethod _ = notificationSetHintUint32 + -- method Notification::set_icon_from_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -858,9 +972,9 @@ {-# DEPRECATED notificationSetIconFromPixbuf ["use notify_notification_set_image_from_pixbuf() instead."]#-} notificationSetIconFromPixbuf :: (MonadIO m, NotificationK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - b -> -- icon - m () + a -- _obj + -> b -- icon + -> m () -- result notificationSetIconFromPixbuf _obj icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon @@ -869,11 +983,14 @@ touchManagedPtr icon return () +data NotificationSetIconFromPixbufMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, NotificationK a, GdkPixbuf.PixbufK b) => MethodInfo NotificationSetIconFromPixbufMethodInfo a signature where + overloadedMethod _ = notificationSetIconFromPixbuf + -- method Notification::set_image_from_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -886,9 +1003,9 @@ notificationSetImageFromPixbuf :: (MonadIO m, NotificationK a, GdkPixbuf.PixbufK b) => - a -> -- _obj - b -> -- pixbuf - m () + a -- _obj + -> b -- pixbuf + -> m () -- result notificationSetImageFromPixbuf _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf @@ -897,11 +1014,14 @@ touchManagedPtr pixbuf return () +data NotificationSetImageFromPixbufMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, NotificationK a, GdkPixbuf.PixbufK b) => MethodInfo NotificationSetImageFromPixbufMethodInfo a signature where + overloadedMethod _ = notificationSetImageFromPixbuf + -- method Notification::set_timeout -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -914,20 +1034,23 @@ notificationSetTimeout :: (MonadIO m, NotificationK a) => - a -> -- _obj - Int32 -> -- timeout - m () + a -- _obj + -> Int32 -- timeout + -> m () -- result notificationSetTimeout _obj timeout = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj notify_notification_set_timeout _obj' timeout touchManagedPtr _obj return () +data NotificationSetTimeoutMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetTimeoutMethodInfo a signature where + overloadedMethod _ = notificationSetTimeout + -- method Notification::set_urgency -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgency", argType = TInterface "Notify" "Urgency", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgency", argType = TInterface "Notify" "Urgency", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgency", argType = TInterface "Notify" "Urgency", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -940,9 +1063,9 @@ notificationSetUrgency :: (MonadIO m, NotificationK a) => - a -> -- _obj - Urgency -> -- urgency - m () + a -- _obj + -> Urgency -- urgency + -> m () -- result notificationSetUrgency _obj urgency = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let urgency' = (fromIntegral . fromEnum) urgency @@ -950,11 +1073,14 @@ touchManagedPtr _obj return () +data NotificationSetUrgencyMethodInfo +instance (signature ~ (Urgency -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetUrgencyMethodInfo a signature where + overloadedMethod _ = notificationSetUrgency + -- method Notification::show -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -967,8 +1093,8 @@ notificationShow :: (MonadIO m, NotificationK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result notificationShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -979,11 +1105,14 @@ return () ) +data NotificationShowMethodInfo +instance (signature ~ (m ()), MonadIO m, NotificationK a) => MethodInfo NotificationShowMethodInfo a signature where + overloadedMethod _ = notificationShow + -- method Notification::update -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -998,11 +1127,11 @@ notificationUpdate :: (MonadIO m, NotificationK a) => - a -> -- _obj - T.Text -> -- summary - Maybe (T.Text) -> -- body - Maybe (T.Text) -> -- icon - m Bool + a -- _obj + -> T.Text -- summary + -> Maybe (T.Text) -- body + -> Maybe (T.Text) -- icon + -> m Bool -- result notificationUpdate _obj summary body icon = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj summary' <- textToCString summary @@ -1023,5 +1152,9 @@ freeMem maybeBody freeMem maybeIcon return result' + +data NotificationUpdateMethodInfo +instance (signature ~ (T.Text -> Maybe (T.Text) -> Maybe (T.Text) -> m Bool), MonadIO m, NotificationK a) => MethodInfo NotificationUpdateMethodInfo a signature where + overloadedMethod _ = notificationUpdate diff --git a/GI/Notify/Objects/Notification.hs-boot b/GI/Notify/Objects/Notification.hs-boot --- a/GI/Notify/Objects/Notification.hs-boot +++ b/GI/Notify/Objects/Notification.hs-boot @@ -18,3 +18,23 @@ data NotificationIdPropertyInfo data NotificationSummaryPropertyInfo data NotificationClosedSignalInfo +data NotificationAddActionMethodInfo +data NotificationClearActionsMethodInfo +data NotificationClearHintsMethodInfo +data NotificationCloseMethodInfo +data NotificationGetClosedReasonMethodInfo +data NotificationSetAppNameMethodInfo +data NotificationSetCategoryMethodInfo +data NotificationSetHintMethodInfo +data NotificationSetHintByteMethodInfo +data NotificationSetHintByteArrayMethodInfo +data NotificationSetHintDoubleMethodInfo +data NotificationSetHintInt32MethodInfo +data NotificationSetHintStringMethodInfo +data NotificationSetHintUint32MethodInfo +data NotificationSetIconFromPixbufMethodInfo +data NotificationSetImageFromPixbufMethodInfo +data NotificationSetTimeoutMethodInfo +data NotificationSetUrgencyMethodInfo +data NotificationShowMethodInfo +data NotificationUpdateMethodInfo diff --git a/gi-notify.cabal b/gi-notify.cabal --- a/gi-notify.cabal +++ b/gi-notify.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-notify -version: 0.2.32.12 +version: 0.2.32.13 synopsis: Notify bindings description: Bindings for Notify, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,8 +14,8 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations exposed-modules: GI.Notify.Types GI.Notify @@ -27,10 +27,10 @@ GI.Notify.Objects.Notification pkgconfig-depends: gdk-pixbuf-2.0 >= 2.32 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-glib >= 0.2.46.12 && < 0.2.47, - gi-gobject >= 0.2.46.12 && < 0.2.47, - gi-gdkpixbuf >= 0.2.32.12 && < 0.2.33, + haskell-gi-base >= 0.13 && < 1, + gi-glib >= 0.2.46.13 && < 0.2.47, + gi-gobject >= 0.2.46.13 && < 0.2.47, + gi-gdkpixbuf >= 0.2.32.13 && < 0.2.33, bytestring >= 0.10, containers >= 0.5, text >= 1.0,