Introduce .

Author: epost

src/Database/Postgres.purs

@@ -3,6 +3,8 @@ module Database.Postgres
   , Client()
   , DB()
   , ConnectionInfo()
+  , ConnectionString()
+  , mkConnectionString
   , connect
   , end
   , execute, execute_
@@ -34,6 +36,8 @@ foreign import data Client :: *
 
 foreign import data DB :: !
 
+type ConnectionString = String
+
 type ConnectionInfo =
   { host :: String
   , db :: String
@@ -42,16 +46,19 @@ type ConnectionInfo =
   , password :: String
   }
 
--- | Makes a connection to the database.
-connect :: forall eff. ConnectionInfo -> Aff (db :: DB | eff) Client
-connect ci = connect'
-  $ "postgres://"
+mkConnectionString :: ConnectionInfo -> ConnectionString
+mkConnectionString ci =
+    "postgres://"
   <> ci.user <> ":"
   <> ci.password <> "@"
   <> ci.host <> ":"
   <> show ci.port <> "/"
   <> ci.db
 
+-- | Makes a connection to the database.
+connect :: forall eff. ConnectionInfo -> Aff (db :: DB | eff) Client
+connect = connect' <<< mkConnectionString
+
 -- | Runs a query and returns nothing.
 execute :: forall eff a. Query a -> [SqlValue] -> Client -> Aff (db :: DB | eff) Unit
 execute (Query sql) params client = void $ runQuery sql params client

test/Main.purs

@@ -17,6 +17,7 @@ import Data.Foreign.Index
 import Control.Monad.Aff
 
 main = runAff (trace <<< show) (const $ trace "All ok") $ do
+  liftEff <<< trace $ "connecting to " <> mkConnectionString connectionInfo <> "..."
   exampleUsingWithConnection
   exampleLowLevel