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