defaultMain: shut down Vty handle returned by customMainWithDefaultVty

This commit is contained in:
Jonathan Daugherty 2023-11-09 16:33:37 -08:00
parent d7565bc42f
commit b8c7afc9e9

View File

@ -131,8 +131,10 @@ defaultMain :: (Ord n)
-> s
-- ^ The initial application state.
-> IO s
defaultMain app st =
fst <$> customMainWithDefaultVty Nothing app st
defaultMain app st = do
(s, vty) <- customMainWithDefaultVty Nothing app st
shutdown vty
return s
-- | A simple main entry point which takes a widget and renders it. This
-- event loop terminates when the user presses any key, but terminal