taffybar-3.2.3-ghc-9-compatibility.patch

diff -ur taffybar-3.2.3.orig/src/System/Taffybar/Context.hs taffybar-3.2.3/src/System/Taffybar/Context.hs
--- taffybar-3.2.3.orig/src/System/Taffybar/Context.hs	2021-02-21 20:28:29.131349867 -0500
+++ taffybar-3.2.3/src/System/Taffybar/Context.hs	2021-02-21 21:42:47.842460554 -0500
@@ -58,7 +58,7 @@
 
 type Taffy m v = MonadIO m => ReaderT Context m v
 type TaffyIO v = ReaderT Context IO v
-type Listener = Event -> Taffy IO ()
+type Listener = Event -> TaffyIO ()
 type SubscriptionList = [(Unique, Listener)]
 data Value = forall t. Typeable t => Value t
 
@@ -343,7 +343,7 @@
 
 -- | Remove the listener associated with the provided "Unique" from the
 -- collection of listeners.
-unsubscribe :: Unique -> Taffy IO ()
+unsubscribe :: Unique -> TaffyIO ()
 unsubscribe identifier = do
   listenersVar <- asks listeners
   lift $ MV.modifyMVar_ listenersVar $ return . filter ((== identifier) . fst)
@@ -376,5 +376,5 @@
 handleX11Event :: Event -> Taffy IO ()
 handleX11Event event =
   asksContextVar listeners >>= mapM_ applyListener
-  where applyListener :: (Unique, Listener) -> Taffy IO ()
+  where applyListener :: (Unique, Listener) -> TaffyIO ()
         applyListener (_, listener) = taffyFork $ listener event
Only in taffybar-3.2.3/src/System/Taffybar: .Context.hs.swp