diff options
Diffstat (limited to 'standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch')
-rw-r--r-- | standalone/no-th/haskell-patches/vector_hack-to-build-with-new-ghc.patch | 35 |
1 files changed, 30 insertions, 5 deletions
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 |