Skip to content

haskell-gargantext
haskell-gargantext
Commit 7e11e73f authored by Justin Woo's avatar Justin Woo
Browse files
Options

lists endpoint should accept JSON

parent 8094cd18
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/API/Ngrams/List.hs
View file @ 7e11e73f
...@@ -50,7 +50,7 @@ import Servant.Job.Utils (jsonOptions) ...@@ -50,7 +50,7 @@ import Servant.Job.Utils (jsonOptions)
------------------------------------------------------------------------ ------------------------------------------------------------------------
type NgramsList = (Map NgramsType (Versioned NgramsTableMap)) type NgramsList = (Map NgramsType (Versioned NgramsTableMap))
------------------------------------------------------------------------ ------------------------------------------------------------------------
type API = Get '[HTML] (Headers '[Header "Content-Disposition" Text] NgramsList) type API = Get '[JSON, HTML] (Headers '[Header "Content-Disposition" Text] NgramsList)
-- :<|> ReqBody '[JSON] NgramsList :> Post '[JSON] Bool -- :<|> ReqBody '[JSON] NgramsList :> Post '[JSON] Bool
:<|> PostAPI :<|> PostAPI
......
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