import Servant.Auth.Server
import Test.QuickCheck (elements, oneof)
import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
-import qualified Gargantext.Core.Auth as Auth
+import qualified Gargantext.Prelude.Crypto.Auth as Auth
---------------------------------------------------
withAccess :: forall env err m api.
(GargServerC env err m, HasServer api '[]) =>
- Proxy api -> Proxy m ->
- UserId -> PathId ->
+ Proxy api -> Proxy m -> UserId -> PathId ->
ServerT api m -> ServerT api m
withAccess p _ uId id = hoistServer p f
where