summaryrefslogblamecommitdiffstats
path: root/lib/Confirm.hs
blob: 47e33885f83d6517d90a9e65c1daf71ff9cde110 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11










                                                          
module Confirm (confirm) where

import Control.Monad

import XMonad.Core
import XMonad.Actions.GridSelect

confirm :: GSConfig Bool -> String -> X() -> X()
confirm config string action = do
  res <- gridselect config [(string, True), ("No", False)]
  whenJust res (\x -> when x action)