Migrations configuration

backend/src/Configuration.hs

@@ -9,7 +9,8 @@ import Dhall (Interpret)
 data Pg = Pg { username :: Text
              , password :: Text
              , host :: Text
-             , database :: Text }
+             , database :: Text
+             , migrations :: Text }
         deriving (Show, Generic)
 
 data Store = Filestore { path :: Text }

config/Configuration.dhall

@@ -0,0 +1,7 @@
+{ database : { username : Text
+             , password : Text
+             , host : Text
+             , database : Text
+             , migrations : Text }
+, store : { path : Text }
+}

config/config.dhall.sample

@@ -4,5 +4,7 @@
     , password = "password"
     , host = "hostname"
     , database = "ebook"
+    , migrations = "./migrations"
   }
+  store = { path = "/tmp/store" }
 }

to-flyway.dhall

@@ -0,0 +1,8 @@
+\(conf : ./config/Configuration.dhall)
+->
+''
+flyway.locations=filesystem:${conf.database.migrations}/
+flyway.url=jdbc:postgresql://${conf.database.host}/${conf.database.database}
+flyway.user=${conf.database.username}
+flyway.password=${conf.database.password}
+''