XMonad: EitherT -> OptionT.