diff options
Diffstat (limited to 'src/Chelleport.hs')
| -rw-r--r-- | src/Chelleport.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Chelleport.hs b/src/Chelleport.hs index fe58259..fa21c28 100644 --- a/src/Chelleport.hs +++ b/src/Chelleport.hs @@ -35,7 +35,7 @@ run = do Chelleport.View.render where runAppWithCtx :: (MonadIO m) => DrawContext -> AppM m x -> m x - runAppWithCtx ctx action = runReaderT (runAppM action) ctx + runAppWithCtx ctx = (`runReaderT` ctx) . runAppM initialState :: (Monad m) => m State initialState = do |