veja XMonad.Layout.MultiToggle
Você precisa de duas importações:
import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
ligação de chaves:
((modm, xK_Caps_Lock), sendMessage $ Toggle FULL)
layout:
layout
= smartBorders
$ mkToggle (NOBORDERS ?? FULL ?? EOT)
$ tiled ||| Mirror tiled ||| etc...
Aproveite.