2 files changed, 53 insertions, 30 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
index ecdf72da4..cd86ccd2d 100644
--- 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
@@ -1,43 +1,41 @@
-From ec2543b2156dc968530ad98e33d26f741a479e31 Mon Sep 17 00:00:00 2001
+From aae3ace106cf26c931cc94c96fb6fbfe83f950f2 Mon Sep 17 00:00:00 2001
 From: dummy <dummy@example.com>
-Date: Tue, 14 Oct 2014 01:23:56 +0000
-Subject: [PATCH] hack to build
+Date: Wed, 15 Oct 2014 17:05:37 +0000
+Subject: [PATCH] avoid TH
 
 ---
- Database/Persist/Sql/Raw.hs |    6 +-----
- 1 file changed, 1 insertion(+), 5 deletions(-)
+ 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 319d75f..db3ee43 100644
+index 3ac2ca9..bcc2011 100644
 --- a/Database/Persist/Sql/Raw.hs
 +++ b/Database/Persist/Sql/Raw.hs
-@@ -15,7 +15,7 @@ import Data.IORef (writeIORef, readIORef, newIORef)
+@@ -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, runLoggingT)
-+-- import Control.Monad.Logger (logDebugS, runLoggingT)
+-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
- import Data.Conduit
-@@ -39,8 +39,6 @@ rawQueryRes
- rawQueryRes sql vals = do
-     conn <- ask
-     let make = do
--            runLoggingT ($logDebugS (pack "SQL") $ pack $ show sql ++ " " ++ show vals)
--                (connLogFunc conn)
-             getStmtConn conn sql
-     return $ do
-         stmt <- mkAcquire make stmtReset
-@@ -52,8 +50,6 @@ rawExecute x y = liftM (const ()) $ rawExecuteCount x y
- rawExecuteCount :: MonadIO m => Text -> [PersistValue] -> ReaderT Connection m Int64
+@@ -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
-     conn <- ask
--    runLoggingT ($logDebugS (pack "SQL") $ pack $ show sql ++ " " ++ show vals)
--        (connLogFunc conn)
+-    $logDebugS (pack "SQL") $ pack $ show sql ++ " " ++ show vals
      stmt <- getStmt sql
      res <- liftIO $ stmtExecute stmt vals
      liftIO $ stmtReset stmt
 -- 
-1.7.10.4
+2.1.1
 
diff --git a/standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch b/standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch
index 4d39e91cf..f89f0d60b 100644
--- a/standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch
+++ b/standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch
@@ -1,11 +1,12 @@
-From b0a79f4f98188ba5d43b7e3912b36d34d099ab65 Mon Sep 17 00:00:00 2001
+From 6ffd4fcb7d27ec6df709d80a40a262406446a259 Mon Sep 17 00:00:00 2001
 From: dummy <dummy@example.com>
-Date: Fri, 18 Oct 2013 23:20:35 +0000
+Date: Wed, 15 Oct 2014 17:00:56 +0000
 Subject: [PATCH] cross build
 
 ---
- Data/Vector/Fusion/Stream/Monadic.hs |    1 -
- 1 file changed, 1 deletion(-)
+ Data/Vector/Fusion/Stream/Monadic.hs |  1 -
+ Data/Vector/Unboxed/Base.hs          | 13 -------------
+ 2 files changed, 14 deletions(-)
 
 diff --git a/Data/Vector/Fusion/Stream/Monadic.hs b/Data/Vector/Fusion/Stream/Monadic.hs
 index 51fec75..b089b3d 100644
@@ -19,6 +20,30 @@ index 51fec75..b089b3d 100644
  #endif
  
  emptyStream :: String
+diff --git a/Data/Vector/Unboxed/Base.hs b/Data/Vector/Unboxed/Base.hs
+index 00350cb..34bfc4a 100644
+--- a/Data/Vector/Unboxed/Base.hs
++++ b/Data/Vector/Unboxed/Base.hs
+@@ -65,19 +65,6 @@ vectorTyCon = mkTyCon3 "vector"
+ vectorTyCon m s = mkTyCon $ m ++ "." ++ s
+ #endif
+ 
+-instance Typeable1 Vector where
+-  typeOf1 _ = mkTyConApp (vectorTyCon "Data.Vector.Unboxed" "Vector") []
+-
+-instance Typeable2 MVector where
+-  typeOf2 _ = mkTyConApp (vectorTyCon "Data.Vector.Unboxed.Mutable" "MVector") []
+-
+-instance (Data a, Unbox a) => Data (Vector a) where
+-  gfoldl       = G.gfoldl
+-  toConstr _   = error "toConstr"
+-  gunfold _ _  = error "gunfold"
+-  dataTypeOf _ = G.mkType "Data.Vector.Unboxed.Vector"
+-  dataCast1    = G.dataCast
+-
+ -- ----
+ -- Unit
+ -- ----
 -- 
-1.7.10.4
+2.1.1