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 -- read this in the init file
   9 infoGargandb :: PGS.ConnectInfo
  10 infoGargandb =  PGS.ConnectInfo { PGS.connectHost = "127.0.0.1"
  11                                , PGS.connectPort = 5432
  12                                , PGS.connectUser = "gargantua"
  13                                , PGS.connectPassword = "C8kdcUrAQy66U"
  14                                , PGS.connectDatabase = "gargandb" }
  15
  16