HTTPS only

2014-09-29 14:06:20 -07:00
parent 631f651f44
commit 2f584be0d6
6 changed files with 64 additions and 3 deletions
@@ -18,7 +18,7 @@ import qualified Data.ByteString.Char8 as BS
 import Dbapi (app, AppConfig(..))

 cfg :: AppConfig
-cfg = AppConfig "postgres://postgres:@localhost:5432/dbapi_test" 9000
+cfg = AppConfig "postgres://postgres:@localhost:5432/dbapi_test" 9000 "test/test.crt" "test/test.key"

 openConnection :: IO Connection
 openConnection = connectPostgreSQL' $ configDbUri cfg