add runWidgetT

ners · Apr 6, 2024 · 58cb97a · 58cb97a
1 parent c406ec4
commit 58cb97a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/System/Terminal/Widgets/Common.hs b/src/System/Terminal/Widgets/Common.hs
@@ -68,3 +68,6 @@ runWidget = go Nothing
             Right e -> do
                 let new = handleEvent e current
                 go (Just current) new
+
+runWidgetT :: forall m w. (MonadIO m, Widget w) => w -> m w
+runWidgetT = liftIO . withTerminal . runTerminalT . runWidget