Skip to content

Commit

Permalink
remove functor constraint from getCsrfTokenImpl
Browse files Browse the repository at this point in the history
  • Loading branch information
agrafix committed Jul 24, 2016
1 parent 60564a0 commit 138198f
Showing 1 changed file with 3 additions and 7 deletions.
10 changes: 3 additions & 7 deletions Spock/src/Web/Spock/Internal/SessionManager.hs
Original file line number Diff line number Diff line change
Expand Up @@ -92,18 +92,14 @@ getSessionIdImpl vK cfg sif =
return $ sess_id sess

getCsrfTokenImpl ::
( MonadIO m
#if MIN_VERSION_base(4,8,0)
#else
, Functor m
#endif
)
( MonadIO m )
=> V.Key SessionId
-> SessionCfg conn sess st
-> SessionIf m
-> m T.Text
getCsrfTokenImpl vK cfg sif =
sess_csrfToken <$> readSessionBase vK cfg sif
do sess <- readSessionBase vK cfg sif
return $ sess_csrfToken sess

modifySessionBase ::
MonadIO m
Expand Down

0 comments on commit 138198f

Please sign in to comment.