Leave access to shellPrompt

xmonad.hs

@@ -99,6 +99,7 @@ myConfig = desktopConfig
       , ("M-S-<Left>", shiftToPrev >> prevWS)
       , ("M-S-<Right>", shiftToNext >> nextWS)
       , ("M-p", fuzzyPrompt myXPConfig)
+      , ("M-S-p", shellPrompt myXPConfig)
       , ("<Tab>-b", sendMessage (Toggle "Full"))
       , ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
       , ("M-S-s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
@@ -148,7 +149,7 @@ main = xmonad =<< bar myConfig
 -- Slightly taken from
 -- https://mail.haskell.org/pipermail/xmonad/2010-October/010671.html
 data FuzzySpawn = FuzzySpawn deriving (Read, Show)
-instance XPrompt FuzzySpawn where showXPrompt _ = "Run: "
+instance XPrompt FuzzySpawn where showXPrompt _ = "RunC: "
 fuzzyPrompt config = do
     cmds <- io getCommands
     let compl s