From d7a519f1aa04e489630c63318b200e89e164d280 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 5 Feb 2023 15:55:11 +0000
Subject: Basic gamepad support

---
 src/Game.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Game.hs')

diff --git a/src/Game.hs b/src/Game.hs
index 0d5ae45..3121ddf 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -47,7 +47,7 @@ defaultRenderRect = SDL.Rectangle (SDL.P $ V2 0 0) (V2 windowWidth windowHeight)
 
 main :: IO ()
 main = do
-  SDL.initialize [SDL.InitVideo]
+  SDL.initialize [SDL.InitVideo, SDL.InitGameController]
   window <-
     SDL.createWindow
       (pack $ name ++ " " ++ version)
@@ -66,7 +66,7 @@ main = do
   renderRect <- newIORef defaultRenderRect
   tsTexture <- SDL.Image.loadTexture renderer "data/tiles.png"
   ssTexture <- SDL.Image.loadTexture renderer "data/sprites.png"
-  controls <- newIORef C.init
+  controls <- newIORef =<< C.init
   map' <- M.load "data/map.json" tsTexture
   sprites <- S.load "data/sprites.json" ssTexture
   entities <- newIORef ([] :: [E.Entity])
-- 
cgit v1.2.3