From 9d33cb07aacc2aa343f3a7466eefab6b8d92abaf Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Thu, 28 May 2015 01:33:21 -0300
Subject: [PATCH] Fix warning.

---
 .../src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs   | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs b/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
index 4e75ce2..f328923 100644
--- 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