XMonad.Util.Invisible
Usage:
data
Invisible
m a
whenIJust
fromIMaybe