aboutsummaryrefslogtreecommitdiff
path: root/standalone/no-th
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-15 14:37:21 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-15 14:37:21 -0400
commit844566cc9c7de78a93a7ccc8d4491f144b557277 (patch)
tree471e24dc5c117848781073243248cc729bacd311 /standalone/no-th
parent47061d00fdb2ebc51b9ca9cc99f006eb32212233 (diff)
android rebuild WIP
Diffstat (limited to 'standalone/no-th')
-rw-r--r--standalone/no-th/haskell-patches/persistent_1.1.5.1_0001-disable-TH.patch48
-rw-r--r--standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch35
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