{-# LANGUAGE DeriveGeneric #-} module Server.Options where import qualified Data.Aeson as Aeson import GHC.Generics data Options = Options { optSocketPath :: FilePath , optMapRows :: Int , optMapColumns :: Int , optSpawnerProbability :: Float } deriving (Show, Generic) instance Aeson.FromJSON Options