buildUI :: Builder -> IO MainUI
buildUI builder = do

        mw <- builderGetObject builder castToWindow "mainWindow"
        onDestroy mw mainQuit

        return $ MainUI mw
buildUI :: Builder -> IO MainUI
buildUI builder = do

        mw <- builderGetObject builder castToWindow "mainWindow"
        onDestroy mw mainQuit

        return $ MainUI mw
buildUI builder = do

        mw <- builderGetObject builder castToWindow "mainWindow"
        onDestroy mw mainQuit

        return $ MainUI mw