From 5b1aaded6f52a343c9486dd664592391a3eb36e5 Mon Sep 17 00:00:00 2001 From: Nicolas Pouillard <nicolas.pouillard@gmail.com> Date: Tue, 12 Feb 2019 18:01:52 +0100 Subject: [PATCH] GargServer fix --- src/Gargantext/API/Node.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Gargantext/API/Node.hs b/src/Gargantext/API/Node.hs index 499fcf1a..4b7060cf 100644 --- 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. -- 2.21.0