ut → m Layout
setDeads = _keys ∘ traverse ∘ _letters ∘ traverse ∘ setDeadKey

setDeadKey ∷ Logger m ⇒ [(Char, ActionMap)] → Letter → m Lette
setDeads ∷ Logger m ⇒ [(Char, ActionMap)] → Layout → m Layout
setDeads = _keys ∘ traverse ∘ _letters ∘ traverse ∘ setDeadKey
setDeads = _keys ∘ traverse ∘ _letters ∘ traverse ∘ setDeadKey