1 files changed, 4 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index d6289bd..7cff173 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -22,6 +22,8 @@ import Control.Monad (join, forM_, unless)
 import Data.List (sortOn, intercalate)
 import Data.Ord (Down(..))
 import Data.Typeable (cast)
+import XMonad.Prompt.ConfirmPrompt (confirmPrompt)
+import System.Exit (exitWith, ExitCode(..))
 
 import qualified Data.Map as Map
 import Data.Map (Map)
@@ -114,7 +116,8 @@ blackHoleWorkspace :: Workspace
 blackHoleWorkspace =
   Workspace {
     moveLocationToWorkspaceFn = mapM_ killWindow . locationWindow
-  , gotoWorkspaceFn = return () -- can't navigate to black hole
+  , gotoWorkspaceFn =
+      confirmPrompt def "Do you want to exit xmonad" $ io (exitWith ExitSuccess)
   , workspaceName = Nothing
   , extraWorkspaceData = ()
   }