haskell/serversession
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More GHC 7.8 fixes: Functor constraint.

Browse Source
This commit is contained in:
Felipe Lessa 2015-05-31 15:42:10 -03:00
parent e9c4ea69a5
commit fcdb14e2bf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
serversession-backend-redis/src/Web/ServerSession/Backend/Redis/Internal.hs
View File

@ -232,18 +232,18 @@ deleteSessionImpl sid = do
-- | Remove the given 'SessionId' from the set of sessions of the -- | Remove the given 'SessionId' from the set of sessions of the
-- given 'AuthId'. Does not do anything if @Nothing@. -- 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 removeSessionFromAuthId = fooSessionBarAuthId R.srem
-- | Insert the given 'SessionId' into the set of sessions of the -- | Insert the given 'SessionId' into the set of sessions of the
-- given 'AuthId'. Does not do anything if @Nothing@. -- 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 insertSessionForAuthId = fooSessionBarAuthId R.sadd
-- | (Internal) Helper for 'removeSessionFromAuthId' and 'insertSessionForAuthId' -- | (Internal) Helper for 'removeSessionFromAuthId' and 'insertSessionForAuthId'
fooSessionBarAuthId fooSessionBarAuthId
:: R.RedisCtx m f :: (R.RedisCtx m f, Functor m)
=> (ByteString -> [ByteString] -> m (f Integer)) => (ByteString -> [ByteString] -> m (f Integer))
-> SessionId sess -> SessionId sess
-> Maybe AuthId -> Maybe AuthId