12 lines
338 B
Haskell
12 lines
338 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module DBConfig where
|
||
|
|
|
||
|
|
import qualified Database.PostgreSQL.Typed as PG
|
||
|
|
import Network.Socket (SockAddr(SockAddrUnix))
|
||
|
|
|
||
|
|
myPGDatabase :: PG.PGDatabase
|
||
|
|
myPGDatabase = PG.defaultPGDatabase
|
||
|
|
{ PG.pgDBAddr = Left ("localhost", "2137")
|
||
|
|
, PG.pgDBUser = "matabasare"
|
||
|
|
, PG.pgDBName = "matabas"
|
||
|
|
}
|