summaryrefslogtreecommitdiff
path: root/Bustle/UI.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Bustle/UI.hs')
-rw-r--r--Bustle/UI.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Bustle/UI.hs b/Bustle/UI.hs
index 28ede19..6666c72 100644
--- a/Bustle/UI.hs
+++ b/Bustle/UI.hs
@@ -487,7 +487,8 @@ emptyWindow = do
subtitle <- getW castToLabel "headerSubtitle"
spinner <- getW castToSpinner "headerSpinner"
- [openItem, openTwoItem] <- mapM (getW castToMenuItem) ["open", "openTwo"]
+ openItem <- getW castToMenuItem "open"
+ openTwoItem <- getW castToMenuItem "openTwo"
recordSessionItem <- getW castToMenuItem "recordSession"
recordSystemItem <- getW castToMenuItem "recordSystem"
recordAddressItem <- getW castToMenuItem "recordAddress"