  )

updateCountF
  :: Members '[BaseApp.WriteStore, Output BaseApp.Event, BaseApp.Logger] r
  => Count
  -> Sem r ()
updateCountF count = do
  V.putVar count countVar
  let event = CountSet count
  BaseApp.emit event
  BaseApp.logEvent event