UI: Fix build

Bustle/UI.hs:490:3: error:
    • No instance for (Control.Monad.Fail.MonadFail
                         (Bustle BConfig BState))
        arising from a do statement
        with the failable pattern ‘[openItem, openTwoItem]’
    • In a stmt of a 'do' block:
        [openItem, openTwoItem] <- mapM
                                     (getW castToMenuItem) ["open", "openTwo"]
      In the expression:
        do builder <- io builderNew
           io
             $ builderAddFromFile builder =<< getDataFileName "data/bustle.ui"
           let getW cast name = io $ builderGetObject builder cast name
           window <- getW castToWindow "diagramWindow"
           ....
      In an equation for ‘emptyWindow’:
          emptyWindow
            = do builder <- io builderNew
                 io
                   $ builderAddFromFile builder =<< getDataFileName "data/bustle.ui"
                 let getW cast name = ...
                 ....
    |
490 |   [openItem, openTwoItem] <- mapM (getW castToMenuItem) ["open", "openTwo"]
    |   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

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"