From a921390c8ceaa141ae65213c678f66479c715cd1 Mon Sep 17 00:00:00 2001
From: Jan Beinke <git@janbeinke.com>
Date: Mon, 3 Feb 2020 02:25:00 +0100
Subject: [PATCH] Apply some minor type changes
---
src/QBar/Core.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs
index d3fbcb5..4d6455e 100644
--- a/src/QBar/Core.hs
+++ b/src/QBar/Core.hs
@@ -47,7 +47,7 @@ type BlockEventHandler = BlockEvent -> BarIO ()
type BlockState = Maybe (BlockOutput, Maybe BlockEventHandler)
-type Block a = Producer BlockState BarIO a
+type Block = Producer BlockState BarIO
-- |Block that 'yield's an update whenever the block should be changed
@@ -83,7 +83,7 @@ data Bar = Bar {
}
-data BarUpdateChannel = BarUpdateChannel (IO ())
+newtype BarUpdateChannel = BarUpdateChannel (IO ())
type BarUpdateEvent = Event.Event
--
GitLab