gi-notify 0.2.32.15 → 0.7.1
raw patch · 11 files changed
+28/−1742 lines, 11 filesdep ~gi-gdkpixbufdep ~gi-glibdep ~gi-gobjectbuild-type:Customsetup-changed
Dependency ranges changed: gi-gdkpixbuf, gi-glib, gi-gobject, transformers
Files
- GI/Notify.hs +0/−40
- GI/Notify/Callbacks.hs +0/−71
- GI/Notify/Constants.hs +0/−45
- GI/Notify/Enums.hs +0/−48
- GI/Notify/Functions.hs +0/−229
- GI/Notify/Objects.hs +0/−27
- GI/Notify/Objects/Notification.hs +0/−1208
- GI/Notify/Objects/Notification.hs-boot +0/−40
- GI/Notify/Types.hs +0/−12
- Setup.hs +12/−3
- gi-notify.cabal +16/−19
− GI/Notify.hs
@@ -1,40 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify- ( module GI.Notify.Callbacks ,- module GI.Notify.Constants ,- module GI.Notify.Enums ,- module GI.Notify.Functions ,- module GI.Notify.Objects ,---- module Data.GI.Base ,--- ) where--import GI.Notify.Callbacks-import GI.Notify.Constants-import GI.Notify.Enums-import GI.Notify.Functions-import GI.Notify.Objects--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Notify.Types-import GI.Notify.Callbacks--import Data.GI.Base-
− GI/Notify/Callbacks.hs
@@ -1,71 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify.Callbacks- ( -- -- * Signals--- ** ActionCallback- ActionCallback ,- ActionCallbackC ,- actionCallbackClosure ,- actionCallbackWrapper ,- mkActionCallback ,- noActionCallback ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Notify.Types----- callback ActionCallback-actionCallbackClosure :: ActionCallback -> IO Closure-actionCallbackClosure cb = newCClosure =<< mkActionCallback wrapped- where wrapped = actionCallbackWrapper Nothing cb--type ActionCallbackC =- Ptr Notification ->- CString ->- Ptr () ->- IO ()--foreign import ccall "wrapper"- mkActionCallback :: ActionCallbackC -> IO (FunPtr ActionCallbackC)--type ActionCallback =- Notification ->- T.Text ->- IO ()--noActionCallback :: Maybe ActionCallback-noActionCallback = Nothing--actionCallbackWrapper ::- Maybe (Ptr (FunPtr (ActionCallbackC))) ->- ActionCallback ->- Ptr Notification ->- CString ->- Ptr () ->- IO ()-actionCallbackWrapper funptrptr _cb notification action _ = do- notification' <- (newObject Notification) notification- action' <- cstringToText action- _cb notification' action'- maybeReleaseFunPtr funptrptr--
− GI/Notify/Constants.hs
@@ -1,45 +0,0 @@-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify.Constants- ( - pattern VERSION_MINOR ,- pattern VERSION_MICRO ,- pattern VERSION_MAJOR ,- pattern EXPIRES_NEVER ,- pattern EXPIRES_DEFAULT ,-- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Notify.Types-import GI.Notify.Callbacks---pattern VERSION_MINOR = 7 :: Int32---pattern VERSION_MICRO = 6 :: Int32---pattern VERSION_MAJOR = 0 :: Int32---pattern EXPIRES_NEVER = 0 :: Int32---pattern EXPIRES_DEFAULT = -1 :: Int32--
− GI/Notify/Enums.hs
@@ -1,48 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify.Enums- ( ---- * Exported types- Urgency(..) ,--- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum Urgency--data Urgency = - UrgencyLow- | UrgencyNormal- | UrgencyCritical- | AnotherUrgency Int- deriving (Show, Eq)--instance Enum Urgency where- fromEnum UrgencyLow = 0- fromEnum UrgencyNormal = 1- fromEnum UrgencyCritical = 2- fromEnum (AnotherUrgency k) = k-- toEnum 0 = UrgencyLow- toEnum 1 = UrgencyNormal- toEnum 2 = UrgencyCritical- toEnum k = AnotherUrgency k--
− GI/Notify/Functions.hs
@@ -1,229 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify.Functions- ( -- -- * Methods--- ** getAppName- getAppName ,----- ** getServerCaps- getServerCaps ,----- ** getServerInfo- getServerInfo ,----- ** init- init ,----- ** isInitted- isInitted ,----- ** setAppName- setAppName ,----- ** uninit- uninit ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Notify.Types-import GI.Notify.Callbacks---- function notify_uninit--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_uninit" notify_uninit :: - IO ()---uninit ::- (MonadIO m) =>- m () -- result-uninit = liftIO $ do- notify_uninit- return ()----- function notify_set_app_name--- Args : [Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_set_app_name" notify_set_app_name :: - CString -> -- app_name : TBasicType TUTF8- IO ()---setAppName ::- (MonadIO m) =>- 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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "notify_is_initted" notify_is_initted :: - IO CInt---isInitted ::- (MonadIO m) =>- m Bool -- result-isInitted = liftIO $ do- result <- notify_is_initted- let result' = (/= 0) result- return result'----- function notify_init--- Args : [Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "notify_init" notify_init :: - CString -> -- app_name : TBasicType TUTF8- IO CInt---init ::- (MonadIO m) =>- T.Text -- appName- -> m Bool -- result-init appName = liftIO $ do- appName' <- textToCString appName- result <- notify_init appName'- let result' = (/= 0) result- freeMem appName'- return result'----- function notify_get_server_info--- 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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "notify_get_server_info" notify_get_server_info :: - Ptr CString -> -- ret_name : TBasicType TUTF8- Ptr CString -> -- ret_vendor : TBasicType TUTF8- Ptr CString -> -- ret_version : TBasicType TUTF8- Ptr CString -> -- ret_spec_version : TBasicType TUTF8- IO CInt---getServerInfo ::- (MonadIO m) =>- m (Bool,T.Text,T.Text,T.Text,T.Text) -- result-getServerInfo = liftIO $ do- 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- 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 : []--- returnType : Just (TGList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "notify_get_server_caps" notify_get_server_caps :: - IO (Ptr (GList CString))---getServerCaps ::- (MonadIO m) =>- m [T.Text] -- result-getServerCaps = liftIO $ do- result <- notify_get_server_caps- result' <- unpackGList result- result'' <- mapM cstringToText result'- mapGList freeMem result- g_list_free result- return result''----- function notify_get_app_name--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "notify_get_app_name" notify_get_app_name :: - IO CString---getAppName ::- (MonadIO m) =>- m T.Text -- result-getAppName = liftIO $ do- result <- notify_get_app_name- checkUnexpectedReturnNULL "notify_get_app_name" result- result' <- cstringToText result- return result'---
− GI/Notify/Objects.hs
@@ -1,27 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify.Objects- ( module GI.Notify.Objects.Notification ,--- ) where--import GI.Notify.Objects.Notification--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Notify.Types-import GI.Notify.Callbacks--
− GI/Notify/Objects/Notification.hs
@@ -1,1208 +0,0 @@---{- |-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Notify.Objects.Notification- ( ---- * Exported types- Notification(..) ,- NotificationK ,- toNotification ,- noNotification ,--- -- * Methods--- ** notificationAddAction- NotificationAddActionMethodInfo ,- notificationAddAction ,----- ** notificationClearActions- NotificationClearActionsMethodInfo ,- notificationClearActions ,----- ** notificationClearHints- NotificationClearHintsMethodInfo ,- notificationClearHints ,----- ** notificationClose- NotificationCloseMethodInfo ,- notificationClose ,----- ** notificationGetClosedReason- NotificationGetClosedReasonMethodInfo ,- notificationGetClosedReason ,----- ** notificationNew- notificationNew ,----- ** 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 ,----- -- * Properties--- ** AppName- NotificationAppNamePropertyInfo ,- constructNotificationAppName ,- getNotificationAppName ,- notificationAppName ,- setNotificationAppName ,----- ** Body- NotificationBodyPropertyInfo ,- clearNotificationBody ,- constructNotificationBody ,- getNotificationBody ,- notificationBody ,- setNotificationBody ,----- ** ClosedReason- NotificationClosedReasonPropertyInfo ,- getNotificationClosedReason ,- notificationClosedReason ,----- ** IconName- NotificationIconNamePropertyInfo ,- clearNotificationIconName ,- constructNotificationIconName ,- getNotificationIconName ,- notificationIconName ,- setNotificationIconName ,----- ** Id- NotificationIdPropertyInfo ,- constructNotificationId ,- getNotificationId ,- notificationId ,- setNotificationId ,----- ** Summary- NotificationSummaryPropertyInfo ,- clearNotificationSummary ,- constructNotificationSummary ,- getNotificationSummary ,- notificationSummary ,- setNotificationSummary ,----- -- * Signals--- ** Closed- NotificationClosedCallback ,- NotificationClosedCallbackC ,- NotificationClosedSignalInfo ,- afterNotificationClosed ,- mkNotificationClosedCallback ,- noNotificationClosedCallback ,- notificationClosedCallbackWrapper ,- notificationClosedClosure ,- onNotificationClosed ,----- ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Notify.Types-import GI.Notify.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.GdkPixbuf as GdkPixbuf--newtype Notification = Notification (ForeignPtr Notification)-foreign import ccall "notify_notification_get_type"- c_notify_notification_get_type :: IO GType--type instance ParentTypes Notification = NotificationParentTypes-type NotificationParentTypes = '[GObject.Object]--instance GObject Notification where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_notify_notification_get_type- --class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o--toNotification :: NotificationK o => o -> IO Notification-toNotification = unsafeCastTo Notification--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 ()--noNotificationClosedCallback :: Maybe NotificationClosedCallback-noNotificationClosedCallback = Nothing--type NotificationClosedCallbackC =- Ptr () -> -- object- Ptr () -> -- user_data- IO ()--foreign import ccall "wrapper"- mkNotificationClosedCallback :: NotificationClosedCallbackC -> IO (FunPtr NotificationClosedCallbackC)--notificationClosedClosure :: NotificationClosedCallback -> IO Closure-notificationClosedClosure cb = newCClosure =<< mkNotificationClosedCallback wrapped- where wrapped = notificationClosedCallbackWrapper cb--notificationClosedCallbackWrapper ::- NotificationClosedCallback ->- Ptr () ->- Ptr () ->- IO ()-notificationClosedCallbackWrapper _cb _ _ = do- _cb --onNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId-onNotificationClosed obj cb = liftIO $ connectNotificationClosed obj cb SignalConnectBefore-afterNotificationClosed :: (GObject a, MonadIO m) => a -> NotificationClosedCallback -> m SignalHandlerId-afterNotificationClosed obj cb = connectNotificationClosed obj cb SignalConnectAfter--connectNotificationClosed :: (GObject a, MonadIO m) =>- a -> NotificationClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectNotificationClosed obj cb after = liftIO $ do- cb' <- mkNotificationClosedCallback (notificationClosedCallbackWrapper cb)- connectSignalFunPtr obj "closed" cb' after---- VVV Prop "app-name"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable]- -- Nullable: (Nothing,Just False)--getNotificationAppName :: (MonadIO m, NotificationK o) => o -> m (Maybe T.Text)-getNotificationAppName obj = liftIO $ getObjectPropertyString obj "app-name"--setNotificationAppName :: (MonadIO m, NotificationK o) => o -> T.Text -> m ()-setNotificationAppName obj val = liftIO $ setObjectPropertyString obj "app-name" (Just val)--constructNotificationAppName :: T.Text -> IO ([Char], GValue)-constructNotificationAppName val = constructObjectPropertyString "app-name" (Just val)--data NotificationAppNamePropertyInfo-instance AttrInfo NotificationAppNamePropertyInfo where- type AttrAllowedOps NotificationAppNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]- type AttrSetTypeConstraint NotificationAppNamePropertyInfo = (~) T.Text- type AttrBaseTypeConstraint NotificationAppNamePropertyInfo = NotificationK- type AttrGetType NotificationAppNamePropertyInfo = (Maybe T.Text)- type AttrLabel NotificationAppNamePropertyInfo = "app-name"- attrGet _ = getNotificationAppName- attrSet _ = setNotificationAppName- attrConstruct _ = constructNotificationAppName- attrClear _ = undefined---- VVV Prop "body"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]- -- Nullable: (Nothing,Nothing)--getNotificationBody :: (MonadIO m, NotificationK o) => o -> m (Maybe T.Text)-getNotificationBody obj = liftIO $ getObjectPropertyString obj "body"--setNotificationBody :: (MonadIO m, NotificationK o) => o -> T.Text -> m ()-setNotificationBody obj val = liftIO $ setObjectPropertyString obj "body" (Just val)--constructNotificationBody :: T.Text -> IO ([Char], GValue)-constructNotificationBody val = constructObjectPropertyString "body" (Just val)--clearNotificationBody :: (MonadIO m, NotificationK o) => o -> m ()-clearNotificationBody obj = liftIO $ setObjectPropertyString obj "body" (Nothing :: Maybe T.Text)--data NotificationBodyPropertyInfo-instance AttrInfo NotificationBodyPropertyInfo where- type AttrAllowedOps NotificationBodyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint NotificationBodyPropertyInfo = (~) T.Text- type AttrBaseTypeConstraint NotificationBodyPropertyInfo = NotificationK- type AttrGetType NotificationBodyPropertyInfo = (Maybe T.Text)- type AttrLabel NotificationBodyPropertyInfo = "body"- attrGet _ = getNotificationBody- attrSet _ = setNotificationBody- attrConstruct _ = constructNotificationBody- attrClear _ = clearNotificationBody---- VVV Prop "closed-reason"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable]- -- Nullable: (Just False,Nothing)--getNotificationClosedReason :: (MonadIO m, NotificationK o) => o -> m Int32-getNotificationClosedReason obj = liftIO $ getObjectPropertyInt32 obj "closed-reason"--data NotificationClosedReasonPropertyInfo-instance AttrInfo NotificationClosedReasonPropertyInfo where- type AttrAllowedOps NotificationClosedReasonPropertyInfo = '[ 'AttrGet]- type AttrSetTypeConstraint NotificationClosedReasonPropertyInfo = (~) ()- type AttrBaseTypeConstraint NotificationClosedReasonPropertyInfo = NotificationK- type AttrGetType NotificationClosedReasonPropertyInfo = Int32- type AttrLabel NotificationClosedReasonPropertyInfo = "closed-reason"- attrGet _ = getNotificationClosedReason- attrSet _ = undefined- attrConstruct _ = undefined- attrClear _ = undefined---- VVV Prop "icon-name"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]- -- Nullable: (Nothing,Nothing)--getNotificationIconName :: (MonadIO m, NotificationK o) => o -> m (Maybe T.Text)-getNotificationIconName obj = liftIO $ getObjectPropertyString obj "icon-name"--setNotificationIconName :: (MonadIO m, NotificationK o) => o -> T.Text -> m ()-setNotificationIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val)--constructNotificationIconName :: T.Text -> IO ([Char], GValue)-constructNotificationIconName val = constructObjectPropertyString "icon-name" (Just val)--clearNotificationIconName :: (MonadIO m, NotificationK o) => o -> m ()-clearNotificationIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text)--data NotificationIconNamePropertyInfo-instance AttrInfo NotificationIconNamePropertyInfo where- type AttrAllowedOps NotificationIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint NotificationIconNamePropertyInfo = (~) T.Text- type AttrBaseTypeConstraint NotificationIconNamePropertyInfo = NotificationK- type AttrGetType NotificationIconNamePropertyInfo = (Maybe T.Text)- type AttrLabel NotificationIconNamePropertyInfo = "icon-name"- attrGet _ = getNotificationIconName- attrSet _ = setNotificationIconName- attrConstruct _ = constructNotificationIconName- attrClear _ = clearNotificationIconName---- VVV Prop "id"- -- Type: TBasicType TInt- -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]- -- Nullable: (Nothing,Nothing)--getNotificationId :: (MonadIO m, NotificationK o) => o -> m Int32-getNotificationId obj = liftIO $ getObjectPropertyInt32 obj "id"--setNotificationId :: (MonadIO m, NotificationK o) => o -> Int32 -> m ()-setNotificationId obj val = liftIO $ setObjectPropertyInt32 obj "id" val--constructNotificationId :: Int32 -> IO ([Char], GValue)-constructNotificationId val = constructObjectPropertyInt32 "id" val--data NotificationIdPropertyInfo-instance AttrInfo NotificationIdPropertyInfo where- type AttrAllowedOps NotificationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]- type AttrSetTypeConstraint NotificationIdPropertyInfo = (~) Int32- type AttrBaseTypeConstraint NotificationIdPropertyInfo = NotificationK- type AttrGetType NotificationIdPropertyInfo = Int32- type AttrLabel NotificationIdPropertyInfo = "id"- attrGet _ = getNotificationId- attrSet _ = setNotificationId- attrConstruct _ = constructNotificationId- attrClear _ = undefined---- VVV Prop "summary"- -- Type: TBasicType TUTF8- -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]- -- Nullable: (Nothing,Nothing)--getNotificationSummary :: (MonadIO m, NotificationK o) => o -> m (Maybe T.Text)-getNotificationSummary obj = liftIO $ getObjectPropertyString obj "summary"--setNotificationSummary :: (MonadIO m, NotificationK o) => o -> T.Text -> m ()-setNotificationSummary obj val = liftIO $ setObjectPropertyString obj "summary" (Just val)--constructNotificationSummary :: T.Text -> IO ([Char], GValue)-constructNotificationSummary val = constructObjectPropertyString "summary" (Just val)--clearNotificationSummary :: (MonadIO m, NotificationK o) => o -> m ()-clearNotificationSummary obj = liftIO $ setObjectPropertyString obj "summary" (Nothing :: Maybe T.Text)--data NotificationSummaryPropertyInfo-instance AttrInfo NotificationSummaryPropertyInfo where- type AttrAllowedOps NotificationSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]- type AttrSetTypeConstraint NotificationSummaryPropertyInfo = (~) T.Text- type AttrBaseTypeConstraint NotificationSummaryPropertyInfo = NotificationK- type AttrGetType NotificationSummaryPropertyInfo = (Maybe T.Text)- type AttrLabel NotificationSummaryPropertyInfo = "summary"- attrGet _ = getNotificationSummary- attrSet _ = setNotificationSummary- attrConstruct _ = constructNotificationSummary- attrClear _ = clearNotificationSummary--type instance AttributeList Notification = NotificationAttributeList-type NotificationAttributeList = ('[ '("appName", NotificationAppNamePropertyInfo), '("body", NotificationBodyPropertyInfo), '("closedReason", NotificationClosedReasonPropertyInfo), '("iconName", NotificationIconNamePropertyInfo), '("id", NotificationIdPropertyInfo), '("summary", NotificationSummaryPropertyInfo)] :: [(Symbol, *)])--notificationAppName :: AttrLabelProxy "appName"-notificationAppName = AttrLabelProxy--notificationBody :: AttrLabelProxy "body"-notificationBody = AttrLabelProxy--notificationClosedReason :: AttrLabelProxy "closedReason"-notificationClosedReason = AttrLabelProxy--notificationIconName :: AttrLabelProxy "iconName"-notificationIconName = AttrLabelProxy--notificationId :: AttrLabelProxy "id"-notificationId = AttrLabelProxy--notificationSummary :: AttrLabelProxy "summary"-notificationSummary = AttrLabelProxy--data NotificationClosedSignalInfo-instance SignalInfo NotificationClosedSignalInfo where- type HaskellCallbackType NotificationClosedSignalInfo = NotificationClosedCallback- connectSignal _ = connectNotificationClosed--type instance SignalList Notification = NotificationSignalList-type NotificationSignalList = ('[ '("closed", NotificationClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Notification::new--- method type : Constructor--- 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 : []--- returnType : Just (TInterface "Notify" "Notification")--- throws : False--- Skip return : False--foreign import ccall "notify_notification_new" notify_notification_new :: - CString -> -- summary : TBasicType TUTF8- CString -> -- body : TBasicType TUTF8- CString -> -- icon : TBasicType TUTF8- IO (Ptr Notification)---notificationNew ::- (MonadIO m) =>- 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- Nothing -> return nullPtr- Just jBody -> do- jBody' <- textToCString jBody- return jBody'- maybeIcon <- case icon of- Nothing -> return nullPtr- Just jIcon -> do- jIcon' <- textToCString jIcon- return jIcon'- result <- notify_notification_new summary' maybeBody maybeIcon- checkUnexpectedReturnNULL "notify_notification_new" result- result' <- (wrapObject Notification) result- freeMem summary'- freeMem maybeBody- freeMem maybeIcon- return result'---- method Notification::add_action--- method type : OrdinaryMethod--- 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 TPtr, 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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_add_action" notify_notification_add_action :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- action : TBasicType TUTF8- CString -> -- label : TBasicType TUTF8- FunPtr ActionCallbackC -> -- callback : TInterface "Notify" "ActionCallback"- Ptr () -> -- user_data : TBasicType TPtr- FunPtr GLib.DestroyNotifyC -> -- free_func : TInterface "GLib" "DestroyNotify"- IO ()---notificationAddAction ::- (MonadIO m, NotificationK a) =>- 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 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 {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_clear_actions" notify_notification_clear_actions :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- IO ()---notificationClearActions ::- (MonadIO m, NotificationK a) =>- 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 {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_clear_hints" notify_notification_clear_hints :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- IO ()---notificationClearHints ::- (MonadIO m, NotificationK a) =>- 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 {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "notify_notification_close" notify_notification_close :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- Ptr (Ptr GError) -> -- error- IO CInt---notificationClose ::- (MonadIO m, NotificationK a) =>- a -- _obj- -> m () -- result-notificationClose _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- onException (do- _ <- propagateGError $ notify_notification_close _obj'- touchManagedPtr _obj- return ()- ) (do- 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 {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "notify_notification_get_closed_reason" notify_notification_get_closed_reason :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- IO Int32---notificationGetClosedReason ::- (MonadIO m, NotificationK a) =>- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_app_name" notify_notification_set_app_name :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- app_name : TBasicType TUTF8- IO ()---notificationSetAppName ::- (MonadIO m, NotificationK a) =>- a -- _obj- -> T.Text -- appName- -> m () -- result-notificationSetAppName _obj appName = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- appName' <- textToCString appName- notify_notification_set_app_name _obj' appName'- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_category" notify_notification_set_category :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- category : TBasicType TUTF8- IO ()---notificationSetCategory ::- (MonadIO m, NotificationK a) =>- a -- _obj- -> T.Text -- category- -> m () -- result-notificationSetCategory _obj category = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- category' <- textToCString category- notify_notification_set_category _obj' category'- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint" notify_notification_set_hint :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- Ptr GVariant -> -- value : TVariant- IO ()---notificationSetHint ::- (MonadIO m, NotificationK a) =>- a -- _obj- -> T.Text -- key- -> Maybe (GVariant) -- value- -> m () -- result-notificationSetHint _obj key value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- maybeValue <- case value of- Nothing -> return nullPtr- Just jValue -> do- let jValue' = unsafeManagedPtrGetPtr jValue- return jValue'- notify_notification_set_hint _obj' key' maybeValue- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint_byte" notify_notification_set_hint_byte :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- Word8 -> -- value : TBasicType TUInt8- IO ()--{-# 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 () -- result-notificationSetHintByte _obj key value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- notify_notification_set_hint_byte _obj' key' value- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint_byte_array" notify_notification_set_hint_byte_array :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- Word8 -> -- value : TBasicType TUInt8- Word64 -> -- len : TBasicType TUInt64- IO ()--{-# 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 () -- result-notificationSetHintByteArray _obj key value len = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- notify_notification_set_hint_byte_array _obj' key' value len- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint_double" notify_notification_set_hint_double :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- CDouble -> -- value : TBasicType TDouble- IO ()--{-# 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 () -- result-notificationSetHintDouble _obj key value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- let value' = realToFrac value- notify_notification_set_hint_double _obj' key' value'- touchManagedPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint_int32" notify_notification_set_hint_int32 :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- Int32 -> -- value : TBasicType TInt- IO ()--{-# 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 () -- result-notificationSetHintInt32 _obj key value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- notify_notification_set_hint_int32 _obj' key' value- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint_string" notify_notification_set_hint_string :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- CString -> -- value : TBasicType TUTF8- IO ()--{-# 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 () -- result-notificationSetHintString _obj key value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- value' <- textToCString value- notify_notification_set_hint_string _obj' key' value'- touchManagedPtr _obj- freeMem key'- 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 {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 TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_hint_uint32" notify_notification_set_hint_uint32 :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- key : TBasicType TUTF8- Word32 -> -- value : TBasicType TUInt- IO ()--{-# 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 () -- result-notificationSetHintUint32 _obj key value = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- key' <- textToCString key- notify_notification_set_hint_uint32 _obj' key' value- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_icon_from_pixbuf" notify_notification_set_icon_from_pixbuf :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- Ptr GdkPixbuf.Pixbuf -> -- icon : TInterface "GdkPixbuf" "Pixbuf"- IO ()--{-# DEPRECATED notificationSetIconFromPixbuf ["use notify_notification_set_image_from_pixbuf() instead."]#-}-notificationSetIconFromPixbuf ::- (MonadIO m, NotificationK a, GdkPixbuf.PixbufK b) =>- a -- _obj- -> b -- icon- -> m () -- result-notificationSetIconFromPixbuf _obj icon = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let icon' = unsafeManagedPtrCastPtr icon- notify_notification_set_icon_from_pixbuf _obj' icon'- touchManagedPtr _obj- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_image_from_pixbuf" notify_notification_set_image_from_pixbuf :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"- IO ()---notificationSetImageFromPixbuf ::- (MonadIO m, NotificationK a, GdkPixbuf.PixbufK b) =>- a -- _obj- -> b -- pixbuf- -> m () -- result-notificationSetImageFromPixbuf _obj pixbuf = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let pixbuf' = unsafeManagedPtrCastPtr pixbuf- notify_notification_set_image_from_pixbuf _obj' pixbuf'- touchManagedPtr _obj- 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_timeout" notify_notification_set_timeout :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- Int32 -> -- timeout : TBasicType TInt- IO ()---notificationSetTimeout ::- (MonadIO m, NotificationK a) =>- 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 {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 : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "notify_notification_set_urgency" notify_notification_set_urgency :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CUInt -> -- urgency : TInterface "Notify" "Urgency"- IO ()---notificationSetUrgency ::- (MonadIO m, NotificationK a) =>- a -- _obj- -> Urgency -- urgency- -> m () -- result-notificationSetUrgency _obj urgency = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let urgency' = (fromIntegral . fromEnum) urgency- notify_notification_set_urgency _obj' urgency'- 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 {argCName = "_obj", argType = TInterface "Notify" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "notify_notification_show" notify_notification_show :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- Ptr (Ptr GError) -> -- error- IO CInt---notificationShow ::- (MonadIO m, NotificationK a) =>- a -- _obj- -> m () -- result-notificationShow _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- onException (do- _ <- propagateGError $ notify_notification_show _obj'- touchManagedPtr _obj- return ()- ) (do- 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 {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 : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "notify_notification_update" notify_notification_update :: - Ptr Notification -> -- _obj : TInterface "Notify" "Notification"- CString -> -- summary : TBasicType TUTF8- CString -> -- body : TBasicType TUTF8- CString -> -- icon : TBasicType TUTF8- IO CInt---notificationUpdate ::- (MonadIO m, NotificationK a) =>- 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- maybeBody <- case body of- Nothing -> return nullPtr- Just jBody -> do- jBody' <- textToCString jBody- return jBody'- maybeIcon <- case icon of- Nothing -> return nullPtr- Just jIcon -> do- jIcon' <- textToCString jIcon- return jIcon'- result <- notify_notification_update _obj' summary' maybeBody maybeIcon- let result' = (/= 0) result- touchManagedPtr _obj- freeMem summary'- 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
@@ -1,40 +0,0 @@-module GI.Notify.Objects.Notification where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Notification = Notification (ForeignPtr Notification)-instance GObject Notification where-class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o-data NotificationAppNamePropertyInfo-data NotificationBodyPropertyInfo-data NotificationClosedReasonPropertyInfo-data NotificationIconNamePropertyInfo-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/Types.hs
@@ -1,12 +0,0 @@-module GI.Notify.Types- ( module GI.Notify.Objects.Notification ,- module GI.Notify.Enums ,--- ) where---import {-# SOURCE #-} GI.Notify.Objects.Notification--import GI.Notify.Enums-
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+ overridesFile outputDir)+ where name = "Notify"+ version = "0.7"+ verbose = False+ overridesFile = Nothing+ outputDir = Nothing
gi-notify.cabal view
@@ -1,37 +1,34 @@--- Autogenerated, do not edit. name: gi-notify-version: 0.2.32.15-synopsis: Notify bindings-description: Bindings for Notify, autogenerated by haskell-gi.+version: 0.7.1+synopsis: Libnotify bindings+description: Bindings for Libnotify, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi license: LGPL-2.1 license-file: LICENSE author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings-build-type: Simple-cabal-version: >=1.10+build-type: Custom+cabal-version: >= 1.24 +custom-setup+ setup-depends: base >= 4.7,+ Cabal >= 1.24,+ haskell-gi >= 0.15+ library default-language: Haskell2010 default-extensions: NoImplicitPrelude, 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- GI.Notify.Callbacks- GI.Notify.Constants- GI.Notify.Enums- GI.Notify.Functions- GI.Notify.Objects- GI.Notify.Objects.Notification- pkgconfig-depends: gdk-pixbuf-2.0 >= 2.32++ pkgconfig-depends: libnotify >= 0.7 && < 1 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1,- gi-glib >= 0.2.46.15 && < 0.2.47,- gi-gobject >= 0.2.46.15 && < 0.2.47,- gi-gdkpixbuf >= 0.2.32.15 && < 0.2.33,+ gi-glib == 2.0.*,+ gi-gobject == 2.0.*,+ gi-gdkpixbuf == 2.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0,- transformers >= 0.3+ transformers >= 0.5