diff --git a/backend/src/Configuration.hs b/backend/src/Configuration.hs new file mode 100644 index 0000000..d9a3503 --- /dev/null +++ b/backend/src/Configuration.hs @@ -0,0 +1,26 @@ +{-# 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) + +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 + diff --git a/common/common.cabal b/common/common.cabal index 2bb27c0..64b7293 100644 --- a/common/common.cabal +++ b/common/common.cabal @@ -29,19 +29,19 @@ library , RecordWildCards default-language: Haskell2010 -test-suite spec - type: exitcode-stdio-1.0 - main-is: Spec.hs - hs-source-dirs: src - build-depends: base >=4.10 - , classy-prelude - , foreign-store - , generic-lens - , lens - , mtl - , text - , transformers - , validity - , genvalidity-hspec - , genvalidity-property - , hspec +-- test-suite spec +-- type: exitcode-stdio-1.0 +-- main-is: Spec.hs +-- hs-source-dirs: src +-- build-depends: base >=4.10 +-- , classy-prelude +-- , foreign-store +-- , generic-lens +-- , lens +-- , mtl +-- , text +-- , transformers +-- , validity +-- , genvalidity-hspec +-- , genvalidity-property +-- , hspec