diff --git a/src-server/Server/Types.hs b/src-server/Server/Types.hs index ce3c34e..11c76bf 100644 --- a/src-server/Server/Types.hs +++ b/src-server/Server/Types.hs @@ -4,12 +4,16 @@ module Server.Options where import qualified Data.Aeson as Aeson import GHC.Generics -data Options = Options - { optSocketPath :: FilePath - , optMapRows :: Int - , optMapColumns :: Int - , optSpawnerProbability :: Float +data Settings = Settings + { setSocketPath :: FilePath + , setMapRows :: Int + , setMapColumns :: Int + , setSpawnerProbability :: Float } deriving (Show, Generic) -instance Aeson.FromJSON Options +instance Aeson.FromJSON Settings + +data Options = Options + { optConfLoc :: FilePath + } diff --git a/wizard-wipeout.cabal b/wizard-wipeout.cabal index c761989..a27fb5c 100644 --- a/wizard-wipeout.cabal +++ b/wizard-wipeout.cabal @@ -43,6 +43,7 @@ executable wizard-wipeout-server main-is: Main.hs other-modules: Server.Map Server.Map.Snippets + Server.Types -- other-extensions: build-depends: base ^>=4.17.2.1 , linear