2023-10-13 18:43:02 +00:00
|
|
|
module JSONSettings
|
2023-10-06 06:05:58 +00:00
|
|
|
( JSONSettings(..)
|
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
import GHC.Generics
|
|
|
|
|
import Data.Aeson (FromJSON)
|
|
|
|
|
|
|
|
|
|
data JSONSettings = JSONSettings
|
|
|
|
|
{ postgrest_url :: String
|
|
|
|
|
, jwt :: String
|
|
|
|
|
, backup_read_root :: FilePath
|
|
|
|
|
, site_name :: String
|
|
|
|
|
, site_url :: String
|
|
|
|
|
} deriving (Show, Generic)
|
|
|
|
|
|
|
|
|
|
instance FromJSON JSONSettings
|
