Fix warning.

2015-05-28 01:33:21 -03:00 · 2015-05-28 01:33:21 -03:00 · 9d33cb07aa
commit 9d33cb07aa
parent 8746b5eb4f
1 changed files with 1 additions and 1 deletions
--- a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
+++ b/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
@ -90,7 +90,7 @@ instance Storage SqlStorage where
      (void $ P.insert $ toPersistentSession session)
      (\old -> liftIO $ E.throwIO $ SessionAlreadyExists old session)
      mold
-  replaceSession s session = do
+  replaceSession _ session = do
    let key = psKey $ sessionKey session
    mold <- P.get key
    maybe