From 961aa2764ea6b6333427d17e539acb0b5ca4d154 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 18 Jan 2012 13:32:28 +0200
Subject: [PATCH] Fix warnings

---
 persistent-postgresql/Database/Persist/Postgresql.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/persistent-postgresql/Database/Persist/Postgresql.hs b/persistent-postgresql/Database/Persist/Postgresql.hs
index 8cf5d2ab4..69a29f61d 100644
--- a/persistent-postgresql/Database/Persist/Postgresql.hs
+++ b/persistent-postgresql/Database/Persist/Postgresql.hs
@@ -583,13 +583,13 @@ instance PersistConfig PostgresConf where
         return $ PostgresConf ci pool
     loadConfig _ = mzero
 
-    applyEnv c = do
+    applyEnv c0 = do
         env <- getEnvironment
         return $ addUser env
                $ addPass env
                $ addDatabase env
                $ addPort env
-               $ addHost env c
+               $ addHost env c0
       where
         addHost env c =
             case lookup "PGHOST" env of