GargServer fix

5b1aaded · Nicolas Pouillard · d611eb6a · 5b1aaded
Unverified Commit 5b1aaded authored Feb 12, 2019 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

Node.hs src/Gargantext/API/Node.hs +4 -2

No files found.
--- a/src/Gargantext/API/Node.hs
+++ b/src/Gargantext/API/Node.hs
@@ -72,8 +72,10 @@ import Gargantext.Database.Types.Node (CorpusId, ContactId)
 import Test.QuickCheck (elements)
 import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)

-type GargServer api = forall env m. (CmdM env ServantErr m, HasRepoVar env)
-                                 => ServerT api m
+type GargServer api =
+  forall env m.
+    (CmdM env ServantErr m, HasRepoVar env, HasRepoSaver env)
+    => ServerT api m

 -------------------------------------------------------------------
 -- TODO-ACCESS: access by admin only.