Settings module

VyacheslavHashov · VyacheslavHashov · commit 940c7303a7fd · 2017-01-02T21:28:05.000+03:00
diff --git a/src/Database/PostgreSQL/Protocol/Settings.hs b/src/Database/PostgreSQL/Protocol/Settings.hs
@@ -0,0 +1,24 @@
+{-# language OverloadedStrings #-}
+
+module Database.PostgreSQL.Protocol.Settings where
+
+import Data.Word (Word16)
+import Data.ByteString (ByteString)
+
+data ConnectionSettings = ConnectionSettings
+    { connHost     :: ByteString
+    , connPort     :: Word16
+    , connDatabase :: ByteString
+    , connUser     :: ByteString
+    , connPassword :: ByteString
+    } deriving (Show)
+
+defaultConnectionSettings :: ConnectionSettings
+defaultConnectionSettings = ConnectionSettings
+    { connHost     = ""
+    , connPort     = 5432
+    , connDatabase = "postgres"
+    , connUser     = "postgres"
+    , connPassword = ""
+    }
+
