Copyright	(c) CNRS 2017-Present
License	AGPL + CECILL v3
Maintainer	team@gargantext.org
Stability	experimental
Portability	POSIX
Safe Haskell	None
Language	Haskell2010

Gargantext.Database.Prelude

Description

Synopsis

class HasConnectionPool env where
- connPool :: Getter env (Pool Connection)
class HasConfig env where
- hasConfig :: Getter env GargConfig
type JSONB = DefaultFromField PGJsonb
type CmdM'' env err m = (MonadReader env m, MonadError err m, MonadBaseControl IO m, MonadRandom m)
type CmdM' env err m = (MonadReader env m, MonadError err m, MonadBaseControl IO m)
type CmdM env err m = (CmdM' env err m, HasConnectionPool env, HasConfig env, HasMail env)
type CmdRandom env err m = (CmdM' env err m, HasConnectionPool env, HasConfig env, MonadRandom m, HasMail env)
type Cmd'' env err a = forall m. CmdM'' env err m => m a
type Cmd' env err a = forall m. CmdM' env err m => m a
type Cmd err a = forall m env. CmdM env err m => m a
type CmdR err a = forall m env. CmdRandom env err m => m a
fromInt64ToInt :: Int64 -> Int
mkCmd :: (Connection -> IO a) -> Cmd err a
runCmd :: HasConnectionPool env => env -> Cmd'' env err a -> IO (Either err a)
runOpaQuery :: Default FromFields fields haskells => Select fields -> Cmd err [haskells]
runCountOpaQuery :: Select a -> Cmd err Int
formatPGSQuery :: ToRow a => Query -> a -> Cmd err ByteString
runPGSQuery' :: (ToRow a, FromRow b) => Query -> a -> Cmd err [b]
runPGSQuery :: (CmdM env err m, FromRow r, ToRow q) => Query -> q -> m [r]
runPGSQuery_ :: (CmdM env err m, FromRow r) => Query -> m [r]
execPGSQuery :: ToRow a => Query -> a -> Cmd err Int64
databaseParameters :: FilePath -> IO ConnectInfo
connectGargandb :: FilePath -> IO Connection
fromField' :: (Typeable b, FromJSON b) => Field -> Maybe ByteString -> Conversion b
printSqlOpa :: Default Unpackspec a a => Query a -> IO ()

Documentation

class HasConnectionPool env where Source #

Methods

connPool :: Getter env (Pool Connection) Source #

Instances

Instances details

HasConnectionPool Env Source #
Instance details Defined in Gargantext.API.Admin.EnvTypes Methods connPool :: Getter Env (Pool Connection) Source #
HasConnectionPool DevEnv Source #
Instance details Defined in Gargantext.API.Admin.EnvTypes Methods connPool :: Getter DevEnv (Pool Connection) Source #
HasConnectionPool (Pool Connection) Source #
Instance details Defined in Gargantext.Database.Prelude Methods connPool :: Getter (Pool Connection) (Pool Connection) Source #

class HasConfig env where Source #

Methods

hasConfig :: Getter env GargConfig Source #

Instances

Instances details

HasConfig GargConfig Source #
Instance details Defined in Gargantext.Database.Prelude Methods hasConfig :: Getter GargConfig GargConfig Source #
HasConfig Env Source #
Instance details Defined in Gargantext.API.Admin.EnvTypes Methods hasConfig :: Getter Env GargConfig Source #
HasConfig DevEnv Source #
Instance details Defined in Gargantext.API.Admin.EnvTypes Methods hasConfig :: Getter DevEnv GargConfig Source #

type JSONB = DefaultFromField PGJsonb Source #

type CmdM'' env err m = (MonadReader env m, MonadError err m, MonadBaseControl IO m, MonadRandom m) Source #

type CmdM' env err m = (MonadReader env m, MonadError err m, MonadBaseControl IO m) Source #

type CmdM env err m = (CmdM' env err m, HasConnectionPool env, HasConfig env, HasMail env) Source #

type CmdRandom env err m = (CmdM' env err m, HasConnectionPool env, HasConfig env, MonadRandom m, HasMail env) Source #

type Cmd'' env err a = forall m. CmdM'' env err m => m a Source #

type Cmd' env err a = forall m. CmdM' env err m => m a Source #

type Cmd err a = forall m env. CmdM env err m => m a Source #

type CmdR err a = forall m env. CmdRandom env err m => m a Source #

fromInt64ToInt :: Int64 -> Int Source #

mkCmd :: (Connection -> IO a) -> Cmd err a Source #

runCmd :: HasConnectionPool env => env -> Cmd'' env err a -> IO (Either err a) Source #

runOpaQuery :: Default FromFields fields haskells => Select fields -> Cmd err [haskells] Source #

runCountOpaQuery :: Select a -> Cmd err Int Source #

formatPGSQuery :: ToRow a => Query -> a -> Cmd err ByteString Source #

runPGSQuery' :: (ToRow a, FromRow b) => Query -> a -> Cmd err [b] Source #

runPGSQuery :: (CmdM env err m, FromRow r, ToRow q) => Query -> q -> m [r] Source #

runPGSQuery_ :: (CmdM env err m, FromRow r) => Query -> m [r] Source #

TODO catch error

execPGSQuery :: ToRow a => Query -> a -> Cmd err Int64 Source #

databaseParameters :: FilePath -> IO ConnectInfo Source #

connectGargandb :: FilePath -> IO Connection Source #

fromField' :: (Typeable b, FromJSON b) => Field -> Maybe ByteString -> Conversion b Source #

printSqlOpa :: Default Unpackspec a a => Query a -> IO () Source #