Add toggle for visual sounds

2021-09-22 11:37:07 +01:00
parent a4fbe6126c
commit fa7d8e1b50
7 changed files with 14 additions and 34 deletions
@@ -13,8 +13,8 @@ module Dodge.Config.Data (
    , windowX
    , windowY
    , rotate_to_wall
+    , show_sound
    ) where
-
 import Data.Aeson
 import GHC.Generics
 --import System.Directory
@@ -29,6 +29,7 @@ data Configuration = Configuration
    , _windowX              :: Float
    , _windowY              :: Float
    , _rotate_to_wall       :: Bool
+    , _show_sound           :: Bool
    }
  deriving (Generic, Show)
 makeLenses ''Configuration
@@ -49,4 +50,5 @@ defaultConfig = Configuration
    , _windowX              = 800
    , _windowY              = 600
    , _rotate_to_wall       = True
+    , _show_sound           = False
    }