blob: 3081ddb6df99d71114e13b358dbf71eb11b6f09a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{-# Language RecordWildCards #-}
{-# Language ApplicativeDo #-}
module Fig.Frontend.Utils
( FigFrontendException(..)
, loadConfig
, Config(..)
, module Network.HTTP.Types.Status
) where
import Fig.Prelude
import Network.HTTP.Types.Status
import qualified Toml
newtype FigFrontendException = FigFrontendException Text
deriving (Show, Eq, Ord)
instance Exception FigFrontendException
data Config = Config
{ port :: !Int
, assetPath :: !FilePath
, clientId :: !Text
, authToken :: !Text
, dbHost :: !Text
} deriving (Show, Eq, Ord)
configCodec :: Toml.TomlCodec Config
configCodec = do
port <- Toml.int "port" Toml..= (\a -> a.port)
assetPath <- Toml.string "asset_path" Toml..= (\a -> a.assetPath)
clientId <- Toml.text "client_id" Toml..= (\a -> a.clientId)
authToken <- Toml.text "auth_token" Toml..= (\a -> a.authToken)
dbHost <- Toml.text "db_host" Toml..= (\a -> a.dbHost)
pure $ Config{..}
loadConfig :: FilePath -> IO Config
loadConfig path = Toml.decodeFileEither configCodec path >>= \case
Left err -> throwM . FigFrontendException $ tshow err
Right config -> pure config
|
