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