path: xmonad-contrib_0.18.1-1/XMonad/Prompt/RunOrRaise.hs
isApp "firefox"     = className =? "Firefox-bin"     <||> className =? "Firefox"
isApp "thunderbird" = className =? "Thunderbird-bin" <||> className =? "Thunderbird"
isApp x = liftA2 (==) pid $ pidof x
pidof :: String -> Query Int


path: xmonad-contrib_0.18.1-1/XMonad/Prompt/RunOrRaise.hs
pidof :: String -> Query Int
pidof x = io $ (runProcessWithInput "pidof" [x] [] >>= readIO) `E.catch` econst 0
pid :: Query Int


path: xmonad-contrib_0.18.1-1/XMonad/Prompt/RunOrRaise.hs
isApp x = liftA2 (==) pid $ pidof x
pidof :: String -> Query Int
pidof x = io $ (runProcessWithInput "pidof" [x] [] >>= readIO) `E.catch` econst 0