Reuse Void

libnotify.cabal

@@ -14,11 +14,12 @@ library
   default-language: Haskell2010
   hs-source-dirs: src
   build-depends:
-      base >= 4 && < 5
+      base        >= 4 && < 5
     , bytestring
     , glib
     , gtk
     , mtl
+    , void        >= 0.5
   exposed-modules:
     Libnotify
     Libnotify.C.Notify

src/Libnotify.hs

@@ -98,11 +98,11 @@ update mt mb mi = Notify $
 
 -- | Shows notification to user.
 render :: Notify Bool
-render = withNotification $ notify_notification_show
+render = withNotification notify_notification_show
 
 -- | Closes notification.
 close :: Notify Bool
-close = withNotification $ notify_notification_close
+close = withNotification notify_notification_close
 
 -- | Sets notification 'Timeout'.
 setTimeout :: Timeout -> Notify ()

src/Libnotify/C/NotifyNotification.hsc

@@ -35,6 +35,7 @@ module Libnotify.C.NotifyNotification
 
 import Control.Exception (throwIO)
 import Data.Data (Typeable, Data)
+import Data.Void (Void)
 import GHC.Generics (Generic)
 import Foreign
 import Foreign.C
@@ -44,9 +45,9 @@ import Unsafe.Coerce (unsafeCoerce)
 import qualified Data.ByteString as BS
 
 -- | An opaque notification token
-newtype NotifyNotification = NotifyNotification (Ptr NotifyNotification)
+type NotifyNotification = Ptr Void
 
--- | Create a new NotifyNotification
+-- | Create a new 'NotifyNotification'
 --
 -- Only summary is required
 notify_notification_new