Linting, haddocking

src/Dodge/Config/Data.hs

@@ -9,6 +9,8 @@ module Dodge.Config.Data (
     , volume_music
     , wall_textured
     , shadow_resolution
+    , windowX
+    , windowY
     ) where
 
 import Data.Aeson
@@ -20,11 +22,13 @@ import System.Directory
 import Control.Lens
 
 data Configuration = Configuration
-    { _volume_master   :: Float
-    , _volume_sound    :: Float
-    , _volume_music    :: Float
-    , _wall_textured   :: Bool
-    , _shadow_resolution :: Int -- ^ Higher values divide the screen size, i.e. make the resolution worse
+    { _volume_master        :: Float
+    , _volume_sound         :: Float
+    , _volume_music         :: Float
+    , _wall_textured        :: Bool
+    , _shadow_resolution    :: Int -- ^ Higher values divide screen size, i.e. make the resolution worse
+    , _windowX              :: Float
+    , _windowY              :: Float
     }
   deriving (Generic, Show)
 
@@ -36,10 +40,12 @@ instance ToJSON Configuration where
 instance FromJSON Configuration
 
 defaultConfig = Configuration
-    { _volume_master = 1
-    , _volume_sound  = 1
-    , _volume_music  = 1
-    , _wall_textured = False
-    , _shadow_resolution = 1
+    { _volume_master        = 1
+    , _volume_sound         = 1
+    , _volume_music         = 1
+    , _wall_textured        = False
+    , _shadow_resolution    = 1
+    , _windowX              = 800
+    , _windowY              = 600
     }