From fcdb14e2bf78d8184fd03a5ebca771a9adaef846 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Sun, 31 May 2015 15:42:10 -0300 Subject: [PATCH] More GHC 7.8 fixes: Functor constraint. --- .../src/Web/ServerSession/Backend/Redis/Internal.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/serversession-backend-redis/src/Web/ServerSession/Backend/Redis/Internal.hs b/serversession-backend-redis/src/Web/ServerSession/Backend/Redis/Internal.hs index 12af9c7..261750f 100644 --- a/serversession-backend-redis/src/Web/ServerSession/Backend/Redis/Internal.hs +++ b/serversession-backend-redis/src/Web/ServerSession/Backend/Redis/Internal.hs @@ -232,18 +232,18 @@ deleteSessionImpl sid = do -- | Remove the given 'SessionId' from the set of sessions of the -- given 'AuthId'. Does not do anything if @Nothing@. -removeSessionFromAuthId :: R.RedisCtx m f => SessionId sess -> Maybe AuthId -> m () +removeSessionFromAuthId :: (R.RedisCtx m f, Functor m) => SessionId sess -> Maybe AuthId -> m () removeSessionFromAuthId = fooSessionBarAuthId R.srem -- | Insert the given 'SessionId' into the set of sessions of the -- given 'AuthId'. Does not do anything if @Nothing@. -insertSessionForAuthId :: R.RedisCtx m f => SessionId sess -> Maybe AuthId -> m () +insertSessionForAuthId :: (R.RedisCtx m f, Functor m) => SessionId sess -> Maybe AuthId -> m () insertSessionForAuthId = fooSessionBarAuthId R.sadd -- | (Internal) Helper for 'removeSessionFromAuthId' and 'insertSessionForAuthId' fooSessionBarAuthId - :: R.RedisCtx m f + :: (R.RedisCtx m f, Functor m) => (ByteString -> [ByteString] -> m (f Integer)) -> SessionId sess -> Maybe AuthId