Cleanup

src/Dodge/Config/Data.hs

@@ -6,6 +6,7 @@ import Data.Aeson
 import qualified Data.Set as S
 import GHC.Generics
 import Control.Lens
+{-# ANN module "HLint: ignore Use camelCase" #-}
 data Configuration = Configuration
     { _volume_master        :: Float
     , _volume_sound         :: Float
@@ -24,8 +25,8 @@ data Configuration = Configuration
     }
   deriving (Generic, Show)
 data DebugBool
-    = Show_sound
-    | Show_ms_frame
+    = Show_ms_frame
+    | Show_sound
     | Noclip
     | Cr_status
     | Cr_awareness
@@ -35,6 +36,9 @@ data DebugBool
     | Pathing        
     | Remove_LOS    
     | Cull_more_lights
+    | Close_shape_culling
+    | Show_bound_box
+    | Bound_box_screen
   deriving (Generic, Eq,Ord,Bounded, Enum, Show)
 data ResFactor = FullRes | HalfRes | QuarterRes
   deriving (Generic, Show, Eq, Ord, Enum, Bounded)