Skip to content

haskell-gargantext
haskell-gargantext
Commit 797301a0 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
Browse files
Options

WIP: add FreezeNodeAPI

parent cb7acfd6
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 0 deletions
src/Gargantext/API/Routes/Named/Node.hs
View file @ 797301a0
...@@ -17,6 +17,7 @@ module Gargantext.API.Routes.Named.Node ( ...@@ -17,6 +17,7 @@ module Gargantext.API.Routes.Named.Node (
, Roots(..) , Roots(..)
, NodesAPI(..) , NodesAPI(..)
, ScoreAPI(..) , ScoreAPI(..)
, FreezeNodeAPI(..)
-- * API types (might appear in the routes) -- * API types (might appear in the routes)
, Charts(..) , Charts(..)
...@@ -188,6 +189,9 @@ data ScoreAPI mode = ScoreAPI ...@@ -188,6 +189,9 @@ data ScoreAPI mode = ScoreAPI
:> Put '[JSON] [Int] :> Put '[JSON] [Int]
} deriving Generic } deriving Generic
data FreezeNodeAPI mode = FreezeAPI
{ frezeNodeEp :: mode :> Post '[JSON] NodeId
} deriving Generic
data Roots mode = Roots data Roots mode = Roots
{ getRootsEp :: mode :- Get '[JSON] [Node HyperdataUser] { getRootsEp :: mode :- Get '[JSON] [Node HyperdataUser]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment