Skip to content

haskell-gargantext
haskell-gargantext
Unverified Commit 5b1aaded authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

GargServer fix

parent d611eb6a
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
src/Gargantext/API/Node.hs
View file @ 5b1aaded
...@@ -72,8 +72,10 @@ import Gargantext.Database.Types.Node (CorpusId, ContactId) ...@@ -72,8 +72,10 @@ import Gargantext.Database.Types.Node (CorpusId, ContactId)
import Test.QuickCheck (elements) import Test.QuickCheck (elements)
import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary) import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
type GargServer api = forall env m. (CmdM env ServantErr m, HasRepoVar env) type GargServer api =
=> ServerT api m forall env m.
(CmdM env ServantErr m, HasRepoVar env, HasRepoSaver env)
=> ServerT api m
------------------------------------------------------------------- -------------------------------------------------------------------
-- TODO-ACCESS: access by admin only. -- TODO-ACCESS: access by admin only.
......
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