diff options
Diffstat (limited to 'Settings.hs')
| -rw-r--r-- | Settings.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/Settings.hs b/Settings.hs index 76aa2f3..63cbd15 100644 --- a/Settings.hs +++ b/Settings.hs | |||
| @@ -33,9 +33,6 @@ data AppSettings = AppSettings | |||
| 33 | -- ^ Directory from which to serve static files. | 33 | -- ^ Directory from which to serve static files. |
| 34 | , appDatabaseConf :: PostgresConf | 34 | , appDatabaseConf :: PostgresConf |
| 35 | -- ^ Configuration settings for accessing the database. | 35 | -- ^ Configuration settings for accessing the database. |
| 36 | , appRoot :: Maybe Text | ||
| 37 | -- ^ Base for all generated URLs. If @Nothing@, determined | ||
| 38 | -- from the request headers. | ||
| 39 | , appHost :: HostPreference | 36 | , appHost :: HostPreference |
| 40 | -- ^ Host/interface the server should bind to. | 37 | -- ^ Host/interface the server should bind to. |
| 41 | , appPort :: Int | 38 | , appPort :: Int |
| @@ -57,7 +54,6 @@ instance FromJSON AppSettings where | |||
| 57 | let defaultDev = DEV_BOOL | 54 | let defaultDev = DEV_BOOL |
| 58 | appStaticDir <- o .: "static-dir" | 55 | appStaticDir <- o .: "static-dir" |
| 59 | appDatabaseConf <- o .: "database" | 56 | appDatabaseConf <- o .: "database" |
| 60 | appRoot <- o .:? "approot" | ||
| 61 | appHost <- fromString <$> o .: "host" | 57 | appHost <- fromString <$> o .: "host" |
| 62 | appPort <- o .: "port" | 58 | appPort <- o .: "port" |
| 63 | appIpFromHeader <- o .: "ip-from-header" | 59 | appIpFromHeader <- o .: "ip-from-header" |
