wizard-wipeout/src-server/Server/Types.hs

20 lines
402 B
Haskell
Raw Normal View History

2023-12-07 23:45:33 +00:00
{-# LANGUAGE DeriveGeneric #-}
module Server.Options where
import qualified Data.Aeson as Aeson
import GHC.Generics
2023-12-08 01:26:29 +00:00
data Settings = Settings
{ setSocketPath :: FilePath
, setMapRows :: Int
, setMapColumns :: Int
, setSpawnerProbability :: Float
2023-12-07 23:45:33 +00:00
}
deriving (Show, Generic)
2023-12-08 01:26:29 +00:00
instance Aeson.FromJSON Settings
data Options = Options
{ optConfLoc :: FilePath
}