ebook-manager/src/Configuration.hs

{-# Language NoImplicitPrelude #-}
{-# Language DeriveGeneric #-}
{-# Language DuplicateRecordFields #-}
module Configuration where

import ClassyPrelude
import Dhall (Interpret)

data Pg = Pg { username :: Text
             , password :: Text
             , host :: Text
             , database :: Text }
        deriving (Show, Generic)

newtype Store = Store { path :: Text } deriving (Show, Generic)

data Config = Config { database :: Pg
                     , store :: Store }
            deriving (Show, Generic)

instance Interpret Pg
instance Interpret Store
instance Interpret Config