    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