warpIfVisible :: String -> WindowSet -> X ()
warpIfVisible tag old = do
    let byTag = ((tag ==) . W.tag . W.workspace)
    case find byTag (W.visible old) of
      Just s -> warpToScreen (W.screen s) 0.4 0.5
      _ -> return ()
warpIfVisible :: String -> WindowSet -> X ()
warpIfVisible tag old = do
    let byTag = ((tag ==) . W.tag . W.workspace)
    case find byTag (W.visible old) of
      Just s -> warpToScreen (W.screen s) 0.4 0.5
      _ -> return ()
warpIfVisible tag old = do
    let byTag = ((tag ==) . W.tag . W.workspace)
    case find byTag (W.visible old) of
      Just s -> warpToScreen (W.screen s) 0.4 0.5
      _ -> return ()