From 760fa2c5044ae38bee8114ff84c625ac59f35c6f Mon Sep 17 00:00:00 2001 From: foo Date: Sun, 22 Sep 2013 00:03:55 +0000 Subject: [PATCH] disable TH --- Database/Persist/Sql/Raw.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/Database/Persist/Sql/Raw.hs b/Database/Persist/Sql/Raw.hs index 73189dd..6efebea 100644 --- a/Database/Persist/Sql/Raw.hs +++ b/Database/Persist/Sql/Raw.hs @@ -22,7 +22,6 @@ rawQuery :: (MonadSqlPersist m, MonadResource m) -> [PersistValue] -> Source m [PersistValue] rawQuery sql vals = do - lift $ $logDebugS (pack "SQL") $ pack $ show sql ++ " " ++ show vals conn <- lift askSqlConn bracketP (getStmtConn conn sql) @@ -34,7 +33,6 @@ rawExecute x y = liftM (const ()) $ rawExecuteCount x y rawExecuteCount :: MonadSqlPersist m => Text -> [PersistValue] -> m Int64 rawExecuteCount sql vals = do - $logDebugS (pack "SQL") $ pack $ show sql ++ " " ++ show vals stmt <- getStmt sql res <- liftIO $ stmtExecute stmt vals liftIO $ stmtReset stmt -- 1.7.10.4