gi-notify 0.2.32.12 → 0.2.32.13
raw patch · 9 files changed
+341/−184 lines, 9 filesdep ~gi-gdkpixbufdep ~gi-glibdep ~gi-gobjectPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: gi-gdkpixbuf, gi-glib, gi-gobject, haskell-gi-base
API changes (from Hackage documentation)
- GI.Notify.Enums: instance Enum Urgency
- GI.Notify.Enums: instance Eq Urgency
- GI.Notify.Enums: instance Show Urgency
- GI.Notify.Objects.Notification: instance (GObject o, IsDescendantOf Notification o) => NotificationK o
- GI.Notify.Objects.Notification: instance AttrInfo NotificationAppNamePropertyInfo
- GI.Notify.Objects.Notification: instance AttrInfo NotificationBodyPropertyInfo
- GI.Notify.Objects.Notification: instance AttrInfo NotificationClosedReasonPropertyInfo
- GI.Notify.Objects.Notification: instance AttrInfo NotificationIconNamePropertyInfo
- GI.Notify.Objects.Notification: instance AttrInfo NotificationIdPropertyInfo
- GI.Notify.Objects.Notification: instance AttrInfo NotificationSummaryPropertyInfo
- GI.Notify.Objects.Notification: instance GObject Notification
- GI.Notify.Objects.Notification: instance SignalInfo NotificationClosedSignalInfo
+ GI.Notify.Enums: instance GHC.Classes.Eq GI.Notify.Enums.Urgency
+ GI.Notify.Enums: instance GHC.Enum.Enum GI.Notify.Enums.Urgency
+ GI.Notify.Enums: instance GHC.Show.Show GI.Notify.Enums.Urgency
+ GI.Notify.Objects.Notification: data NotificationAddActionMethodInfo
+ GI.Notify.Objects.Notification: data NotificationClearActionsMethodInfo
+ GI.Notify.Objects.Notification: data NotificationClearHintsMethodInfo
+ GI.Notify.Objects.Notification: data NotificationCloseMethodInfo
+ GI.Notify.Objects.Notification: data NotificationGetClosedReasonMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetAppNameMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetCategoryMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintByteArrayMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintByteMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintDoubleMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintInt32MethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintStringMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetHintUint32MethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetIconFromPixbufMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetImageFromPixbufMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetTimeoutMethodInfo
+ GI.Notify.Objects.Notification: data NotificationSetUrgencyMethodInfo
+ GI.Notify.Objects.Notification: data NotificationShowMethodInfo
+ GI.Notify.Objects.Notification: data NotificationUpdateMethodInfo
+ GI.Notify.Objects.Notification: instance (Data.GI.Base.BasicTypes.GObject o, Data.GI.Base.Overloading.IsDescendantOf GI.Notify.Objects.Notification.Notification o) => GI.Notify.Objects.Notification.NotificationK o
+ GI.Notify.Objects.Notification: instance (info Data.Type.Equality.~ GI.Notify.Objects.Notification.ResolveNotificationMethod t GI.Notify.Objects.Notification.Notification, Data.GI.Base.Overloading.MethodInfo info GI.Notify.Objects.Notification.Notification p) => Data.GI.Base.Overloading.IsLabelProxy t (GI.Notify.Objects.Notification.Notification -> p)
+ GI.Notify.Objects.Notification: instance (info Data.Type.Equality.~ GI.Notify.Objects.Notification.ResolveNotificationMethod t GI.Notify.Objects.Notification.Notification, Data.GI.Base.Overloading.MethodInfo info GI.Notify.Objects.Notification.Notification p) => GHC.OverloadedLabels.IsLabel t (GI.Notify.Objects.Notification.Notification -> p)
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> Data.Text.Internal.Text -> GI.Notify.Callbacks.ActionCallback -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationAddActionMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> Data.Text.Internal.Text -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintStringMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Base.Maybe Data.GI.Base.BasicTypes.GVariant -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Base.Maybe Data.Text.Internal.Text -> GHC.Base.Maybe Data.Text.Internal.Text -> m GHC.Types.Bool), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationUpdateMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Int.Int32 -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintInt32MethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Types.Double -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintDoubleMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Word.Word32 -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintUint32MethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Word.Word8 -> GHC.Word.Word64 -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintByteArrayMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> GHC.Word.Word8 -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetHintByteMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetAppNameMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (Data.Text.Internal.Text -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetCategoryMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (GHC.Int.Int32 -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetTimeoutMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (GI.Notify.Enums.Urgency -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetUrgencyMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (b -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a, GI.GdkPixbuf.Objects.Pixbuf.PixbufK b) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetIconFromPixbufMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ (b -> m ()), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a, GI.GdkPixbuf.Objects.Pixbuf.PixbufK b) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationSetImageFromPixbufMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ m (), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationClearActionsMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ m (), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationClearHintsMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ m (), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationCloseMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ m (), Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationShowMethodInfo a signature
+ GI.Notify.Objects.Notification: instance (signature Data.Type.Equality.~ m GHC.Int.Int32, Control.Monad.IO.Class.MonadIO m, GI.Notify.Objects.Notification.NotificationK a) => Data.GI.Base.Overloading.MethodInfo GI.Notify.Objects.Notification.NotificationGetClosedReasonMethodInfo a signature
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Attributes.AttrInfo GI.Notify.Objects.Notification.NotificationAppNamePropertyInfo
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Attributes.AttrInfo GI.Notify.Objects.Notification.NotificationBodyPropertyInfo
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Attributes.AttrInfo GI.Notify.Objects.Notification.NotificationClosedReasonPropertyInfo
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Attributes.AttrInfo GI.Notify.Objects.Notification.NotificationIconNamePropertyInfo
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Attributes.AttrInfo GI.Notify.Objects.Notification.NotificationIdPropertyInfo
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Attributes.AttrInfo GI.Notify.Objects.Notification.NotificationSummaryPropertyInfo
+ GI.Notify.Objects.Notification: instance Data.GI.Base.BasicTypes.GObject GI.Notify.Objects.Notification.Notification
+ GI.Notify.Objects.Notification: instance Data.GI.Base.Signals.SignalInfo GI.Notify.Objects.Notification.NotificationClosedSignalInfo
- GI.Notify.Functions: getAppName :: MonadIO m => m Text
+ GI.Notify.Functions: getAppName :: (MonadIO m) => m Text
- GI.Notify.Functions: getServerCaps :: MonadIO m => m [Text]
+ GI.Notify.Functions: getServerCaps :: (MonadIO m) => m [Text]
- GI.Notify.Functions: getServerInfo :: MonadIO m => m (Bool, Text, Text, Text, Text)
+ GI.Notify.Functions: getServerInfo :: (MonadIO m) => m (Bool, Text, Text, Text, Text)
- GI.Notify.Functions: init :: MonadIO m => Text -> m Bool
+ GI.Notify.Functions: init :: (MonadIO m) => Text -> m Bool
- GI.Notify.Functions: isInitted :: MonadIO m => m Bool
+ GI.Notify.Functions: isInitted :: (MonadIO m) => m Bool
- GI.Notify.Functions: setAppName :: MonadIO m => Text -> m ()
+ GI.Notify.Functions: setAppName :: (MonadIO m) => Text -> m ()
- GI.Notify.Functions: uninit :: MonadIO m => m ()
+ GI.Notify.Functions: uninit :: (MonadIO m) => m ()
- GI.Notify.Objects.Notification: notificationNew :: MonadIO m => Text -> Maybe (Text) -> Maybe (Text) -> m Notification
+ GI.Notify.Objects.Notification: notificationNew :: (MonadIO m) => Text -> Maybe (Text) -> Maybe (Text) -> m Notification
Files
- GI/Notify.hs +6/−0
- GI/Notify/Callbacks.hs +1/−0
- GI/Notify/Constants.hs +1/−0
- GI/Notify/Enums.hs +1/−0
- GI/Notify/Functions.hs +43/−49
- GI/Notify/Objects.hs +1/−0
- GI/Notify/Objects/Notification.hs +261/−128
- GI/Notify/Objects/Notification.hs-boot +20/−0
- gi-notify.cabal +7/−7
GI/Notify.hs view
@@ -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
GI/Notify/Callbacks.hs view
@@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1
GI/Notify/Constants.hs view
@@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1
GI/Notify/Enums.hs view
@@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1
GI/Notify/Functions.hs view
@@ -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
GI/Notify/Objects.hs view
@@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1
GI/Notify/Objects/Notification.hs view
@@ -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
GI/Notify/Objects/Notification.hs-boot view
@@ -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
gi-notify.cabal view
@@ -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,