Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
Synopsis
- data NodeAPI mode a = NodeAPI {
- nodeNodeAPI :: mode :- PolicyChecked (NamedRoutes (NodeNodeAPI a))
- renameAPI :: mode :- ("rename" :> NamedRoutes RenameAPI)
- postNodeAPI :: mode :- NamedRoutes PostNodeAPI
- postNodeAsync :: mode :- NamedRoutes PostNodeAsync
- frameCalcUploadAPI :: mode :- NamedRoutes FrameCalcAPI
- putEp :: mode :- (ReqBody '[JSON] a :> Put '[JSON] Int)
- updateAPI :: mode :- ("update" :> NamedRoutes UpdateAPI)
- deleteEp :: mode :- Delete '[JSON] Int
- childrenAPI :: mode :- ("children" :> NamedRoutes (ChildrenAPI a))
- tableAPI :: mode :- ("table" :> NamedRoutes TableAPI)
- tableNgramsAPI :: mode :- ("ngrams" :> NamedRoutes TableNgramsAPI)
- catAPI :: mode :- ("category" :> NamedRoutes CatAPI)
- scoreAPI :: mode :- ("score" :> NamedRoutes ScoreAPI)
- searchAPI :: mode :- ("search" :> NamedRoutes (SearchAPI SearchResult))
- shareAPI :: mode :- ("share" :> NamedRoutes ShareNode)
- pairWithEp :: mode :- ("pairwith" :> NamedRoutes PairWith)
- pairsEp :: mode :- ("pairs" :> NamedRoutes Pairs)
- pairingEp :: mode :- ("pairing" :> NamedRoutes PairingAPI)
- scatterAPI :: mode :- ("metrics" :> NamedRoutes ScatterAPI)
- charAPI :: mode :- ("chart" :> NamedRoutes ChartAPI)
- pieAPI :: mode :- ("pie" :> NamedRoutes PieAPI)
- treeAPI :: mode :- ("tree" :> NamedRoutes NodeTreeAPI)
- phyloAPI :: mode :- ("phylo" :> NamedRoutes PhyloAPI)
- moveAPI :: mode :- ("move" :> NamedRoutes MoveAPI)
- unpublishEp :: mode :- ("unpublish" :> NamedRoutes Unpublish)
- fileAPI :: mode :- ("file" :> NamedRoutes FileAPI)
- fileAsyncAPI :: mode :- ("async" :> NamedRoutes FileAsyncAPI)
- dfwnAPI :: mode :- ("documents-from-write-nodes" :> NamedRoutes DocumentsFromWriteNodesAPI)
- documentUploadAPI :: mode :- NamedRoutes DocumentUploadAPI
- newtype RenameAPI mode = RenameAPI {}
- newtype PostNodeAPI mode = PostNodeAPI {}
- newtype ChildrenAPI a mode = ChildrenAPI {
- summaryChildrenEp :: Summary " Summary children" :> (QueryParam "type" NodeType :> (QueryParam "offset" Offset :> (QueryParam "limit" Limit :> Get '[JSON] (NodeTableResult a))))
- newtype NodeNodeAPI a mode = NodeNodeAPI {}
- newtype PostNodeAsync mode = PostNodeAsync {
- postNodeAsyncEp :: mode :- (Summary "Post Node" :> ("async" :> AsyncJobs JobLog '[FormUrlEncoded] PostNode JobLog))
- newtype CatAPI mode = CatAPI {}
- newtype UpdateAPI mode = UpdateAPI {
- updateNodeEp :: mode :- (Summary " Update node according to NodeType params" :> AsyncJobs JobLog '[JSON] UpdateNodeParams JobLog)
- newtype MoveAPI mode = MoveAPI {}
- newtype PairingAPI mode = PairingAPI {
- getPairingEp :: mode :- (Summary " Pairing API" :> (QueryParam "view" TabType :> (QueryParam "offset" Offset :> (QueryParam "limit" Limit :> (QueryParam "order" OrderBy :> Get '[JSON] [FacetDoc])))))
- newtype PairWith mode = PairWith {
- pairCorpusAnnuaireEp :: mode :- (Summary "Pair a Corpus with an Annuaire" :> ("annuaire" :> (Capture "annuaire_id" AnnuaireId :> (QueryParam "list_id" ListId :> Post '[JSON] [Int]))))
- newtype Pairs mode = Pairs {
- pairsListEp :: mode :- (Summary "List of Pairs" :> Get '[JSON] [AnnuaireId])
- data Roots mode = Roots {
- getRootsEp :: mode :- Get '[JSON] [Node HyperdataUser]
- putRootsEp :: mode :- Put '[JSON] Int
- newtype NodesAPI mode = NodesAPI {
- deleteNodeEp :: mode :- Delete '[JSON] Int
- data Charts
- = Sources
- | Authors
- | Institutes
- | Ngrams
- | All
- data Granularity
- data Method
- data NodesToCategory = NodesToCategory {
- ntc_nodesId :: [NodeId]
- ntc_category :: Int
- data PostNode = PostNode {
- pn_name :: Text
- pn_typename :: NodeType
- newtype RenameNode = RenameNode {}
- data UpdateNodeParams
- = UpdateNodeParamsList {
- methodList :: !Method
- | UpdateNodeParamsGraph { }
- | UpdateNodeParamsTexts { }
- | UpdateNodeParamsBoard {
- methodBoard :: !Charts
- | LinkNodeReq { }
- | UpdateNodePhylo { }
- = UpdateNodeParamsList {
Routes types
Node API Types management TODO-ACCESS : access by users No ownership check is needed if we strictly follow the capability model.
CanGetNode (Node, Children, TableApi, TableNgramsApiGet, PairingApi, ChartApi, SearchAPI) CanRenameNode (or part of CanEditNode?) CanCreateChildren (PostNodeApi) CanEditNode / CanPutNode TODO not implemented yet CanDeleteNode CanPatch (TableNgramsApi) CanFavorite CanMoveToTrash
Instances
Generic (RenameAPI mode) # | |
type Rep (RenameAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (RenameAPI mode) = D1 ('MetaData "RenameAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "RenameAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "renameEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary " Rename Node" :> (ReqBody '[JSON] RenameNode :> Put '[JSON] [Int])))))) |
newtype PostNodeAPI mode #
Instances
Generic (PostNodeAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PostNodeAPI mode) :: Type -> Type # from :: PostNodeAPI mode -> Rep (PostNodeAPI mode) x # to :: Rep (PostNodeAPI mode) x -> PostNodeAPI mode # | |
type Rep (PostNodeAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PostNodeAPI mode) = D1 ('MetaData "PostNodeAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "PostNodeAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "postWithParentEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary " PostNode Node with ParentId as {id}" :> (ReqBody '[JSON] PostNode :> Post '[JSON] [NodeId])))))) |
newtype ChildrenAPI a mode #
ChildrenAPI | |
|
Instances
Generic (ChildrenAPI a mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (ChildrenAPI a mode) :: Type -> Type # from :: ChildrenAPI a mode -> Rep (ChildrenAPI a mode) x # to :: Rep (ChildrenAPI a mode) x -> ChildrenAPI a mode # | |
type Rep (ChildrenAPI a mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (ChildrenAPI a mode) = D1 ('MetaData "ChildrenAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "ChildrenAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "summaryChildrenEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Summary " Summary children" :> (QueryParam "type" NodeType :> (QueryParam "offset" Offset :> (QueryParam "limit" Limit :> Get '[JSON] (NodeTableResult a)))))))) |
newtype NodeNodeAPI a mode #
Instances
Generic (NodeNodeAPI a mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (NodeNodeAPI a mode) :: Type -> Type # from :: NodeNodeAPI a mode -> Rep (NodeNodeAPI a mode) x # to :: Rep (NodeNodeAPI a mode) x -> NodeNodeAPI a mode # | |
type Rep (NodeNodeAPI a mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (NodeNodeAPI a mode) = D1 ('MetaData "NodeNodeAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "NodeNodeAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "getNodeEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- Get '[JSON] (Node a))))) |
newtype PostNodeAsync mode #
PostNodeAsync | |
|
Instances
Generic (PostNodeAsync mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PostNodeAsync mode) :: Type -> Type # from :: PostNodeAsync mode -> Rep (PostNodeAsync mode) x # to :: Rep (PostNodeAsync mode) x -> PostNodeAsync mode # | |
type Rep (PostNodeAsync mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PostNodeAsync mode) = D1 ('MetaData "PostNodeAsync" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "PostNodeAsync" 'PrefixI 'True) (S1 ('MetaSel ('Just "postNodeAsyncEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary "Post Node" :> ("async" :> AsyncJobs JobLog '[FormUrlEncoded] PostNode JobLog)))))) |
Instances
Generic (CatAPI mode) # | |
type Rep (CatAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (CatAPI mode) = D1 ('MetaData "CatAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "CatAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "categoriseEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary " To Categorize NodeNodes: 0 for delete, 1/null neutral, 2 favorite" :> (ReqBody '[JSON] NodesToCategory :> Put '[JSON] [Int])))))) |
UpdateAPI | |
|
Instances
Generic (UpdateAPI mode) # | |
type Rep (UpdateAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (UpdateAPI mode) = D1 ('MetaData "UpdateAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "UpdateAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "updateNodeEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary " Update node according to NodeType params" :> AsyncJobs JobLog '[JSON] UpdateNodeParams JobLog))))) |
Instances
Generic (MoveAPI mode) # | |
type Rep (MoveAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (MoveAPI mode) = D1 ('MetaData "MoveAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "MoveAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "moveNodeEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary "Move Node endpoint" :> (Capture "parent_id" ParentId :> Put '[JSON] [Int])))))) |
newtype PairingAPI mode #
PairingAPI | |
|
Instances
Generic (PairingAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PairingAPI mode) :: Type -> Type # from :: PairingAPI mode -> Rep (PairingAPI mode) x # to :: Rep (PairingAPI mode) x -> PairingAPI mode # | |
type Rep (PairingAPI mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PairingAPI mode) = D1 ('MetaData "PairingAPI" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "PairingAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "getPairingEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary " Pairing API" :> (QueryParam "view" TabType :> (QueryParam "offset" Offset :> (QueryParam "limit" Limit :> (QueryParam "order" OrderBy :> Get '[JSON] [FacetDoc]))))))))) |
PairWith | |
|
Instances
Generic (PairWith mode) # | |
type Rep (PairWith mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (PairWith mode) = D1 ('MetaData "PairWith" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "PairWith" 'PrefixI 'True) (S1 ('MetaSel ('Just "pairCorpusAnnuaireEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary "Pair a Corpus with an Annuaire" :> ("annuaire" :> (Capture "annuaire_id" AnnuaireId :> (QueryParam "list_id" ListId :> Post '[JSON] [Int])))))))) |
Pairs | |
|
Instances
Generic (Pairs mode) # | |
type Rep (Pairs mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (Pairs mode) = D1 ('MetaData "Pairs" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "Pairs" 'PrefixI 'True) (S1 ('MetaSel ('Just "pairsListEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (mode :- (Summary "List of Pairs" :> Get '[JSON] [AnnuaireId]))))) |
Roots | |
|
Instances
Generic (Roots mode) # | |
type Rep (Roots mode) # | |
Defined in Gargantext.API.Routes.Named.Node type Rep (Roots mode) = D1 ('MetaData "Roots" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'False) (C1 ('MetaCons "Roots" 'PrefixI 'True) (S1 ('MetaSel ('Just "getRootsEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (mode :- Get '[JSON] [Node HyperdataUser])) :*: S1 ('MetaSel ('Just "putRootsEp") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (mode :- Put '[JSON] Int)))) |
API types (might appear in the routes)
Instances
Bounded Charts # | |
Enum Charts # | |
Defined in Gargantext.API.Routes.Named.Node | |
Generic Charts # | |
Eq Charts # | |
Ord Charts # | |
type Rep Charts # | |
Defined in Gargantext.API.Routes.Named.Node type Rep Charts = D1 ('MetaData "Charts" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'False) ((C1 ('MetaCons "Sources" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Authors" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Institutes" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Ngrams" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "All" 'PrefixI 'False) (U1 :: Type -> Type)))) |
data Granularity #
Instances
Instances
Bounded Method # | |
Enum Method # | |
Defined in Gargantext.API.Routes.Named.Node | |
Generic Method # | |
Eq Method # | |
Ord Method # | |
type Rep Method # | |
Defined in Gargantext.API.Routes.Named.Node type Rep Method = D1 ('MetaData "Method" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'False) (C1 ('MetaCons "Basic" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Advanced" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "WithModel" 'PrefixI 'False) (U1 :: Type -> Type))) |
data NodesToCategory #
NodesToCategory | |
|
Instances
Generic NodesToCategory # | |
Defined in Gargantext.API.Routes.Named.Node type Rep NodesToCategory :: Type -> Type # from :: NodesToCategory -> Rep NodesToCategory x # to :: Rep NodesToCategory x -> NodesToCategory # | |
type Rep NodesToCategory # | |
Defined in Gargantext.API.Routes.Named.Node type Rep NodesToCategory = D1 ('MetaData "NodesToCategory" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'False) (C1 ('MetaCons "NodesToCategory" 'PrefixI 'True) (S1 ('MetaSel ('Just "ntc_nodesId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [NodeId]) :*: S1 ('MetaSel ('Just "ntc_category") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int))) |
PostNode | |
|
Instances
Arbitrary PostNode # | |
FromJSON PostNode # | |
ToJSON PostNode # | |
Defined in Gargantext.API.Routes.Named.Node | |
Generic PostNode # | |
FromForm PostNode # | |
ToForm PostNode # | |
Defined in Gargantext.API.Routes.Named.Node | |
ToSchema PostNode # | |
Defined in Gargantext.API.Routes.Named.Node | |
type Rep PostNode # | |
Defined in Gargantext.API.Routes.Named.Node type Rep PostNode = D1 ('MetaData "PostNode" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'False) (C1 ('MetaCons "PostNode" 'PrefixI 'True) (S1 ('MetaSel ('Just "pn_name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: S1 ('MetaSel ('Just "pn_typename") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 NodeType))) |
newtype RenameNode #
Instances
Generic RenameNode # | |
Defined in Gargantext.API.Routes.Named.Node type Rep RenameNode :: Type -> Type # from :: RenameNode -> Rep RenameNode x # to :: Rep RenameNode x -> RenameNode # | |
type Rep RenameNode # | |
Defined in Gargantext.API.Routes.Named.Node type Rep RenameNode = D1 ('MetaData "RenameNode" "Gargantext.API.Routes.Named.Node" "gargantext-0.0.7.1.5.3-inplace" 'True) (C1 ('MetaCons "RenameNode" 'PrefixI 'True) (S1 ('MetaSel ('Just "r_name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) |
data UpdateNodeParams #
UpdateNodeParamsList | |
| |
UpdateNodeParamsGraph | |
UpdateNodeParamsTexts | |
UpdateNodeParamsBoard | |
| |
LinkNodeReq | |
UpdateNodePhylo | |