diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,4 +1,6 @@
 # notifications-tray-icon
+![Build Status](https://github.com/IvanMalison/notifications-tray-icon/actions/workflows/build.yml/badge.svg)
+[![Hackage](https://img.shields.io/hackage/v/notifications-tray-icon.svg?logo=haskell&label=notifications-tray-icon)](https://hackage.haskell.org/package/notifications-tray-icon) [![Stackage LTS](http://stackage.org/package/notifications-tray-icon/badge/lts)](http://stackage.org/lts/package/notifications-tray-icon) [![Stackage Nightly](http://stackage.org/package/notifications-tray-icon/badge/nightly)](http://stackage.org/nightly/package/notifications-tray-icon)
 
 notifications-tray-icon provides an SNI tray icon that polls a notification
 source and provides a menu with actions from that notification source. It will
@@ -9,8 +11,3 @@
 
 For the time being, github is the only supported notification source. Support
 for gmail and other sources should be coming soon.
-
-# Installation
-
-For the time being, notifications-tray-icon must be installed from source using
-stack.
diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -166,4 +166,5 @@
          (  fullDesc
          <> progDesc "Run a notification monitoring tray icon"
          )
+  -- TODO: Come up with a better way to hang indefinitely
   void $ forever $ threadDelay 999999999999999999
diff --git a/notifications-tray-icon.cabal b/notifications-tray-icon.cabal
--- a/notifications-tray-icon.cabal
+++ b/notifications-tray-icon.cabal
@@ -1,13 +1,11 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.31.2.
+-- This file has been generated from package.yaml by hpack version 0.34.4.
 --
 -- see: https://github.com/sol/hpack
---
--- hash: 57d00db35b1fdd85c3ea68c5fdddd0d1d63f7b670e89007b5658006f1f6b1658
 
 name:           notifications-tray-icon
-version:        0.1.0.0
+version:        0.1.1.0
 description:    Please see the README on GitHub at <https://github.com/IvanMalison/notifications-tray-icon#readme>
 homepage:       https://github.com/IvanMalison/notifications-tray-icon#readme
 bug-reports:    https://github.com/IvanMalison/notifications-tray-icon/issues
@@ -35,7 +33,8 @@
       Paths_notifications_tray_icon
   hs-source-dirs:
       src
-  default-extensions: OverloadedStrings
+  default-extensions:
+      OverloadedStrings
   build-depends:
       aeson
     , async
@@ -46,7 +45,7 @@
     , gi-dbusmenu
     , gi-gio
     , gi-glib
-    , github >=0.22
+    , github >=0.24
     , hslogger
     , http-conduit
     , http-types
@@ -64,7 +63,8 @@
       Paths_notifications_tray_icon
   hs-source-dirs:
       app
-  default-extensions: OverloadedStrings
+  default-extensions:
+      OverloadedStrings
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       base >=4.7 && <5
diff --git a/src/StatusNotifier/Item/Notifications/GitHub.hs b/src/StatusNotifier/Item/Notifications/GitHub.hs
--- a/src/StatusNotifier/Item/Notifications/GitHub.hs
+++ b/src/StatusNotifier/Item/Notifications/GitHub.hs
@@ -22,6 +22,7 @@
 import qualified GitHub.Auth as Auth
 import           GitHub.Data
 import           GitHub.Endpoints.Activity.Notifications
+import           GitHub.Request
 import           Network.HTTP.Simple
 import           Network.HTTP.Types
 import           StatusNotifier.Item.Notifications.Util
@@ -51,7 +52,7 @@
                    , ghRefreshSeconds = refreshSeconds
                    } update = do
 
-  let getNotificationsFromGitHub = getNotifications auth
+  let getNotificationsFromGitHub = executeRequest auth $ getNotificationsR FetchAll
       logAndShow :: (Show v) => Priority -> String -> v -> IO ()
       logAndShow level message value =
         ghLog level $ printf message (show value)
@@ -63,7 +64,7 @@
   let forceRefresh = void $ MV.tryPutMVar forceRefreshVar ()
       delayedRefresh = void $ forkIO $ threadDelay 1000000 >> forceRefresh
       openNotificationsHTML = openURL "https://github.com/notifications"
-      markAllRead = markNotificationsAsRead auth
+      markAllRead = executeRequest auth markAllNotificationsAsReadR
       getCurrentNotifications = MV.readMVar notificationsVar
       buildMenu = do
         notifications <- getCurrentNotifications
@@ -139,7 +140,7 @@
                        } = do
   let notificationText = T.pack $ getNotificationSummary notification
       openHTML = openNotificationHTML auth notification
-      markAsRead = markNotificationAsRead auth thisNotificationId
+      markAsRead = executeRequest auth $ markNotificationAsReadR thisNotificationId
 
   menuItem <- menuitemNewWithId $ fromIntegral $ untagId thisNotificationId
   textVariant <- liftIO $ toGVariant notificationText
diff --git a/src/StatusNotifier/Item/Notifications/OverlayIcon.hs b/src/StatusNotifier/Item/Notifications/OverlayIcon.hs
--- a/src/StatusNotifier/Item/Notifications/OverlayIcon.hs
+++ b/src/StatusNotifier/Item/Notifications/OverlayIcon.hs
@@ -20,6 +20,7 @@
 import           StatusNotifier.Item.Notifications.Util
 import qualified StatusNotifier.Watcher.Client as W
 import           System.Log.Logger
+import qualified GI.Gio.Objects.Cancellable
 
 type UpdateNotifications = Int -> Menuitem -> IO ()
 
@@ -52,7 +53,8 @@
   root <- menuitemNew
   currentRoot <- newMVar root
 
-  connection <- Gio.busGetSync Gio.BusTypeSession Gio.noCancellable
+  connection <- Just <$> GI.Gio.Objects.Cancellable.cancellableNew >>=
+                Gio.busGetSync Gio.BusTypeSession
   Gio.busOwnNameOnConnection connection menuBusText [] Nothing Nothing
   menuServer <- serverNew menuPathText