Add command to build appimage

2 files changed, 2 insertions, 2 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
diff --git a/src/Chelleport/Context.hs b/src/Chelleport/Context.hs
index 6452e86..b23c1c2 100644
--- a/src/Chelleport/Context.hs
+++ b/src/Chelleport/Context.hs
@@ -50,7 +50,7 @@ loadFont = do
 
 initializeRenderer :: SDL.Window -> IO SDL.Renderer
 initializeRenderer window = do
-  renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer
+  renderer <- SDL.createRenderer window (-1) SDL.defaultRenderer -- No hw acc: {SDL.rendererType = SDL.SoftwareRenderer}
   SDL.windowOpacity window $= windowOpacity
   SDL.rendererDrawBlendMode renderer $= SDL.BlendAlphaBlend
   pure renderer