{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE MonoLocalBinds #-}
module Gargantext.API.Prelude
( module Gargantext.API.Prelude
import Data.Aeson.Types
import Data.Typeable
import Data.Validity
-import Servant
-import Servant.Job.Async
-import Servant.Job.Core (HasServerError(..), serverError)
-
import Gargantext.API.Admin.Orchestrator.Types
import Gargantext.API.Admin.Types
-import Gargantext.API.Ngrams.Types
+import Gargantext.Core.NodeStory
import Gargantext.Core.Types
import Gargantext.Database.Prelude
import Gargantext.Database.Query.Table.Node.Error (NodeError(..), HasNodeError(..))
import Gargantext.Database.Query.Tree
import Gargantext.Prelude
+import Servant
+import Servant.Job.Async
+import Servant.Job.Core (HasServerError(..), serverError)
class HasJoseError e where
_JoseError :: Prism' e Jose.Error
type EnvC env =
( HasConnectionPool env
- , HasRepo env -- TODO rename HasNgramsRepo
, HasSettings env -- TODO rename HasDbSettings
, HasJobEnv env JobLog JobLog
, HasConfig env
+ , HasNodeStoryEnv env
)
type ErrC err =
type GargServerC env err m =
( CmdRandom env err m
+ , HasNodeStory env err m
, EnvC env
, ErrC err
+ , MimeRender JSON err
)
type GargServerT env err m api = GargServerC env err m => ServerT api m
type GargNoServer' env err m =
( CmdM env err m
- , HasRepo env
+ , HasNodeStory env err m
, HasSettings env
, HasNodeError err
)