diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-08-02 19:12:42 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-08-02 19:12:42 -0400 |
commit | 41a7de163ad854515a1b0315931eef7cd72a924c (patch) | |
tree | 334a272b9c5a0f05a618fb23159a59c8e653ba82 /standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch | |
parent | 21ace0d80a401bad0ef1df800e6f881425212249 (diff) | |
parent | 0960dde361a79ab5783e79a8039828194358341e (diff) |
Merge orca:/tmp/git-annex
Diffstat (limited to 'standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch')
-rw-r--r-- | standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch b/standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch new file mode 100644 index 000000000..cd86ccd2d --- /dev/null +++ b/standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch @@ -0,0 +1,41 @@ +From aae3ace106cf26c931cc94c96fb6fbfe83f950f2 Mon Sep 17 00:00:00 2001 +From: dummy <dummy@example.com> +Date: Wed, 15 Oct 2014 17:05:37 +0000 +Subject: [PATCH] avoid TH + +--- + Database/Persist/Sql/Raw.hs | 4 +--- + 1 file changed, 1 insertion(+), 3 deletions(-) + +diff --git a/Database/Persist/Sql/Raw.hs b/Database/Persist/Sql/Raw.hs +index 3ac2ca9..bcc2011 100644 +--- a/Database/Persist/Sql/Raw.hs ++++ b/Database/Persist/Sql/Raw.hs +@@ -11,7 +11,7 @@ import Data.IORef (writeIORef, readIORef, newIORef) + import Control.Exception (throwIO) + import Control.Monad (when, liftM) + import Data.Text (Text, pack) +-import Control.Monad.Logger (logDebugS) ++--import Control.Monad.Logger (logDebugS) + import Data.Int (Int64) + import Control.Monad.Trans.Class (lift) + import qualified Data.Text as T +@@ -23,7 +23,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) +@@ -35,7 +34,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 +-- +2.1.1 + |