From e35b4a1b21ed243723508886ba05c409b3ee3fb6 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Tue, 4 Sep 2012 18:15:09 -0300
Subject: [PATCH] Fix some warnings about the test suite.

---
 test/Test.hs | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/test/Test.hs b/test/Test.hs
index c0eb6bb..e50d522 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -8,7 +8,7 @@ import Control.Monad.IO.Class (MonadIO(liftIO))
 import Control.Monad.Logger (MonadLogger(..), LogLevel(..))
 import Control.Monad.Trans.Control (MonadBaseControl(..))
 import Database.Esqueleto
-import Database.Persist.Sqlite (runSqlConn, withSqliteConn)
+import Database.Persist.Sqlite (withSqliteConn)
 import Database.Persist.TH
 import Language.Haskell.TH (Loc(..))
 import System.IO (stderr)
@@ -97,11 +97,11 @@ main = do
 
       it "works for a simple projection with a simple self-join" $
         run $ do
-          p1k <- insert p1
-          p2k <- insert p2
+          _ <- insert p1
+          _ <- insert p2
           ret <- select $
-                 from $ \(p1, p2) ->
-                 return (p1 ^. PersonName, p2 ^. PersonName)
+                 from $ \(pa, pb) ->
+                 return (pa ^. PersonName, pb ^. PersonName)
           liftIO $ ret `shouldBe` [ (Single (personName p1), Single (personName p1))
                                   , (Single (personName p1), Single (personName p2))
                                   , (Single (personName p2), Single (personName p1))
@@ -219,8 +219,13 @@ run, runSilent, runVerbose :: (forall m. RunDbMonad m => SqlPersist (C.ResourceT
 runSilent  act = run_worker act
 runVerbose act = execVerbose $ run_worker act
 run =
-   runSilent
--- runVerbose
+  if verbose
+  then runVerbose
+  else runSilent
+
+
+verbose :: Bool
+verbose = True
 
 
 run_worker :: RunDbMonad m => SqlPersist (C.ResourceT m) a -> m a