From ca949a9d2b74e881cca1b62d30848738e5f95489 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Fri, 26 Mar 2021 20:06:48 +0100
Subject: [PATCH] Add print statement

---
 src/LoadConfig.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/LoadConfig.hs b/src/LoadConfig.hs
index cb69f5469..0ffc9126a 100644
--- a/src/LoadConfig.hs
+++ b/src/LoadConfig.hs
@@ -165,7 +165,9 @@ loadKeyConfig = do
             putStrLn "invalid keys.json, loading default config"
             -- This is duplicated but not sure how to reduce
             return defaultKeyConfigSDL
-    else return defaultKeyConfigSDL
+    else do
+        putStrLn "No keys.json found, loading default config"
+        return defaultKeyConfigSDL
 
 getSdlScancode :: Int -> SDL.Scancode
 getSdlScancode x = SDL.Internal.Numbered.fromNumber (fromIntegral x) :: SDL.Scancode