From c7814834c37d9a792ba4903520701147955b05f2 Mon Sep 17 00:00:00 2001
From: Will Thompson <will@willthompson.co.uk>
Date: Tue, 15 Jul 2014 07:29:27 +0100
Subject: UI: remove some redundant stuff

---
 Bustle/UI.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Bustle/UI.hs b/Bustle/UI.hs
index 3a0ce7b..a78797e 100644
--- a/Bustle/UI.hs
+++ b/Bustle/UI.hs
@@ -354,8 +354,7 @@ emptyWindow = do
       onActivateLeaf openTwoItem $ widgetShowAll openTwoDialog
 
   -- Help menu
-  embedIO $ \r -> do
-      onActivateLeaf aboutItem $ showAboutDialog window
+  io $ onActivateLeaf aboutItem $ showAboutDialog window
 
   m <- asks methodIcon
   s <- asks signalIcon
-- 
cgit v1.2.3