diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs
index d3fbcb54d599a45af4ddcb6bafb8e99328694d09..4d6455e13bd68a3a1404402452d35ac975925538 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