From d42cb89dd2e41bff00e6a9c9144cd5f3c1126c82 Mon Sep 17 00:00:00 2001 From: jgk Date: Wed, 7 Apr 2021 18:52:51 +0200 Subject: [PATCH] Turn on debug mode by default --- app/Main.hs | 14 +++++--------- src/Dodge/Default.hs | 2 +- 2 files changed, 6 insertions(+), 10 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 8f6c67879..e76dc8e07 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -22,18 +22,14 @@ import Preload import Sound.Data import Music -import Control.Concurrent -import Control.Lens -import Foreign (Word32) - +import Control.Concurrent +import Control.Lens +import Foreign (Word32) import Control.Monad (when,void) - import System.Random - - import qualified Data.Map as M -import Graphics.Rendering.OpenGL hiding (color, rotate, scale, - translate) +import qualified Data.IntMap as IM +import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate) import qualified SDL import qualified SDL.Mixer as Mix diff --git a/src/Dodge/Default.hs b/src/Dodge/Default.hs index b597e786a..e500485ea 100644 --- a/src/Dodge/Default.hs +++ b/src/Dodge/Default.hs @@ -234,7 +234,7 @@ defaultWorld = World , _keyConfig = defaultKeyConfigSDL , _varMovementSpeedModifier = 3 , _varMovementStrafeSpeedModifier = 3 - , _debugMode = False + , _debugMode = True } youLight = -- LS {_lsEff = \w _ p -> (logistic 1 1 1 (d p w * 0.01) )