2889211efd
Android build is now almost entirely automated, except for the installation of cross-built libs needed for XMPP. Haskell packages updated to current newest versions. Am not currently pinning the versions, as that didn't work out last time I tried it (must have missed some pins before).
32 lines
1 KiB
Diff
32 lines
1 KiB
Diff
From 760fa2c5044ae38bee8114ff84c625ac59f35c6f Mon Sep 17 00:00:00 2001
|
|
From: foo <foo@bar>
|
|
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
|
|
|