Fix warnings

trin-cz · Jan 18, 2012 · 961aa27 · 961aa27
1 parent 65ab02b
commit 961aa27
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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