Add print statement

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