Cleanup creature picture
This commit is contained in:
@@ -18,7 +18,6 @@ import Data.Aeson
|
||||
import GHC.Generics
|
||||
--import System.Directory
|
||||
import Control.Lens
|
||||
|
||||
data Configuration = Configuration
|
||||
{ _volume_master :: Float
|
||||
, _volume_sound :: Float
|
||||
@@ -30,7 +29,6 @@ data Configuration = Configuration
|
||||
, _windowY :: Float
|
||||
}
|
||||
deriving (Generic, Show)
|
||||
|
||||
makeLenses ''Configuration
|
||||
|
||||
instance ToJSON Configuration where
|
||||
@@ -43,10 +41,9 @@ defaultConfig = Configuration
|
||||
{ _volume_master = 1
|
||||
, _volume_sound = 1
|
||||
, _volume_music = 1
|
||||
, _wall_textured = False
|
||||
, _wall_textured = True
|
||||
, _cloud_shadows = True
|
||||
, _resolution_factor = 1
|
||||
, _windowX = 800
|
||||
, _windowY = 600
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user