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

Fix warning.

Browse Source
This commit is contained in:
Felipe Lessa 2015-05-28 01:33:21 -03:00
parent 8746b5eb4f
commit 9d33cb07aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
View File

@ -90,7 +90,7 @@ instance Storage SqlStorage where
(void $ P.insert $ toPersistentSession session) (void $ P.insert $ toPersistentSession session)
(\old -> liftIO $ E.throwIO $ SessionAlreadyExists old session) (\old -> liftIO $ E.throwIO $ SessionAlreadyExists old session)
mold mold
replaceSession s session = do replaceSession _ session = do
let key = psKey $ sessionKey session let key = psKey $ sessionKey session
mold <- P.get key mold <- P.get key
maybe maybe