blob: 21582db0209f8637958465bc71b5fc110c0fd9d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
http://hackage.haskell.org/trac/ghc/ticket/4268
--- haskell-vector-0.9.1.orig/Data/Vector/Fusion/Stream/Monadic.hs 2012-02-10 23:48:51.000000000 +0100
+++ haskell-vector-0.9.1/Data/Vector/Fusion/Stream/Monadic.hs 2012-02-10 23:49:04.000000000 +0100
@@ -94,15 +94,19 @@
import Data.Word ( Word8, Word16, Word32, Word, Word64 )
#if __GLASGOW_HASKELL__ >= 700
+#if 0
import GHC.Exts ( SpecConstrAnnotation(..) )
#endif
+#endif
#include "vector.h"
data SPEC = SPEC | SPEC2
#if __GLASGOW_HASKELL__ >= 700
+#if 0
{-# ANN type SPEC ForceSpecConstr #-}
#endif
+#endif
emptyStream :: String
{-# NOINLINE emptyStream #-}
|