ebook-manager/backend/src/Configuration.hs

28 lines
678 B
Haskell
Raw Normal View History

2018-12-20 00:33:32 +02:00
{-# Language NoImplicitPrelude #-}
{-# Language DeriveGeneric #-}
{-# Language DuplicateRecordFields #-}
module Configuration where
import ClassyPrelude
import Dhall (Interpret)
data Pg = Pg { username :: Text
, password :: Text
, host :: Text
2019-01-21 22:35:05 +02:00
, database :: Text
, migrations :: Text }
2018-12-20 00:33:32 +02:00
deriving (Show, Generic)
data Store = Filestore { path :: Text }
| IPFS { common :: Text }
deriving (Show, Generic)
data Config = Config { database :: Pg
, store :: Store }
deriving (Show, Generic)
instance Interpret Pg
instance Interpret Store
instance Interpret Config