src/Data/Gargantext/Database/Private.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Data.Gargantext.Database.Private where
   4
   5 import qualified Database.PostgreSQL.Simple as PGS
   6
   7 -- TODO add a reader Monad here
   8 infoGargandb :: PGS.ConnectInfo
   9 infoGargandb =  PGS.ConnectInfo { PGS.connectHost = "127.0.0.1"
  10                                , PGS.connectPort = 5432
  11                                , PGS.connectUser = "gargantua"
  12                                , PGS.connectPassword = "C8kdcUrAQy66U"
  13                                , PGS.connectDatabase = "gargandb" }
  14
  15