module Yi.Config.Default.Vty (configureVty) where

import Lens.Micro.Platform ((.=))
import Yi.Frontend.Vty     (start)
import Yi.Config.Lens      (startFrontEndA)
import Yi.Config.Simple    (ConfigM)

configureVty :: ConfigM ()
configureVty :: ConfigM ()
configureVty = (UIBoot -> Identity UIBoot) -> Config -> Identity Config
Lens' Config UIBoot
startFrontEndA ((UIBoot -> Identity UIBoot) -> Config -> Identity Config)
-> UIBoot -> ConfigM ()
forall s (m :: * -> *) a b.
MonadState s m =>
ASetter s s a b -> b -> m ()
.= UIBoot
start