diff options
Diffstat (limited to 'src/Gtk/State.icl')
| -rw-r--r-- | src/Gtk/State.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Gtk/State.icl b/src/Gtk/State.icl index 16312b2..9d81b9a 100644 --- a/src/Gtk/State.icl +++ b/src/Gtk/State.icl @@ -21,7 +21,7 @@ newGtkState = , signal_counter = 0 } -runGtk :: !(State GtkState a) !*World -> (!a, !*World) +runGtk :: !(GtkM a) !*World -> (!a, !*World) runGtk f w = (evalState wrapped_f newGtkState, w) where wrapped_f = @@ -47,11 +47,11 @@ where run handler = case handler of GSHI_Void st -> st >>| handle_signals -toState :: !(A.a: a -> a) -> State GtkState () +toState :: !(A.a: a -> a) -> GtkM () toState f = state \st -> let w = f st.world in ((), {st & world=w}) -toStateR :: !(A.a: a -> (r,a)) -> State GtkState r +toStateR :: !(A.a: a -> (r,a)) -> GtkM r toStateR f = state \st -> let (r,w) = f st.world in (r, {st & world=w}) -quit :: State GtkState () +quit :: GtkM () quit = modify \st -> {st & return=True} |