From c45ea0ecc84adb7ed8d2c2cda399e04fff984ad9 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Thu, 20 Dec 2018 00:33:32 +0200
Subject: [PATCH] wip

---
 backend/src/Configuration.hs | 26 ++++++++++++++++++++++++++
 common/common.cabal          | 32 ++++++++++++++++----------------
 2 files changed, 42 insertions(+), 16 deletions(-)
 create mode 100644 backend/src/Configuration.hs

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