From 7cd1f9c93a0bb80171541ce5f0c953ca0f645139 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sun, 22 Dec 2024 18:53:27 +0530 Subject: Add command to build appimage --- src/Chelleport.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Chelleport.hs') 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 -- cgit v1.3.1