eval (QDir dir) c wo =
  nonHists $ maybeToList $ followDir c dir (getFocusTile wo) $ wHistory wo
eval (QDir dir) c wo =
  nonHists $ maybeToList $ followDir c dir (getFocusTile wo) $ wHistory wo
eval (QDir dir) c wo =
  nonHists $ maybeToList $ followDir c dir (getFocusTile wo) $ wHistory wo