From 030423da5495e1b09609a0dd981a8cc97bd0bfc8 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Tue, 4 Mar 2014 09:11:01 -0300 Subject: [PATCH] Avoid warning when compiling tests for PostgreSQL or MySQL. --- test/Test.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/Test.hs b/test/Test.hs index 35636ae..1790839 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -20,7 +20,6 @@ import Control.Monad.IO.Class (MonadIO(liftIO)) import Control.Monad.Logger (MonadLogger(..), runStderrLoggingT, runNoLoggingT) import Control.Monad.Trans.Control (MonadBaseControl(..)) import Database.Esqueleto -import Database.Persist.Sqlite (withSqliteConn) #if defined (WITH_POSTGRESQL) import Database.Persist.Postgresql (withPostgresqlConn) #elif defined (WITH_MYSQL) @@ -30,6 +29,8 @@ import Database.Persist.MySQL ( withMySQLConn , connectUser , connectPassword , defaultConnectInfo) +#else +import Database.Persist.Sqlite (withSqliteConn) #endif import Database.Persist.TH import Test.Hspec