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