From 6ffd4fcb7d27ec6df709d80a40a262406446a259 Mon Sep 17 00:00:00 2001 From: dummy Date: Wed, 15 Oct 2014 17:00:56 +0000 Subject: [PATCH] cross build --- 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 --- a/Data/Vector/Fusion/Stream/Monadic.hs +++ b/Data/Vector/Fusion/Stream/Monadic.hs @@ -101,7 +101,6 @@ import GHC.Exts ( SpecConstrAnnotation(..) ) data SPEC = SPEC | SPEC2 #if __GLASGOW_HASKELL__ >= 700 -{-# ANN type SPEC ForceSpecConstr #-} #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 -- ---- -- 2.1.1