{-# LANGUAGE DeriveGeneric #-}
-- |

module Config where
import           Conferer                 (DefaultConfig (configDef),
                                           FromConfig)
import           Conferer.FromConfig.Warp ()
import           Data.ByteString          (ByteString)
import           Data.Text                (Text)
import           GHC.Generics             (Generic)
import           Network.Wai.Handler.Warp (Settings)

data ServerConfig = ServerConfig
  { serverConfigWarp         :: Settings
  , serverConfigDbString     :: ByteString
  , serverConfigGtfs         :: FilePath
  , serverConfigZoneinfoPath :: FilePath
  } deriving Generic

instance FromConfig ServerConfig

instance DefaultConfig ServerConfig where
  configDef = ServerConfig
    { serverConfigWarp = configDef
    , serverConfigDbString = ""
    , serverConfigGtfs = "./gtfs.zip"
    , serverConfigZoneinfoPath = "/etc/zoneinfo/"
    }