blob: beab2d84b347d043fb4fae461f192b35fa67f0ee (
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
25
26
27
28
29
30
31
32
|
Description: Disable annotation without ghci
Can be removed if ghc ignores annotation without an interpreter:
http://hackage.haskell.org/trac/ghc/ticket/4268
Author: Joachim Breitner <nomeata@debian.org>
Bug-Debian: http://bugs.debian.org/640088
Forwarded: no
--- a/Data/Vector/Fusion/Stream/Monadic.hs
+++ b/Data/Vector/Fusion/Stream/Monadic.hs
@@ -99,8 +99,10 @@ import Data.Word ( Word8, Word16, Word32
#if __GLASGOW_HASKELL__ >= 708
import GHC.Types ( SPEC(..) )
#elif __GLASGOW_HASKELL__ >= 700
+#ifndef DEBIAN_NO_GHCI
import GHC.Exts ( SpecConstrAnnotation(..) )
#endif
+#endif
#include "vector.h"
#include "MachDeps.h"
@@ -112,9 +114,11 @@ import Data.Int ( Int64 )
#if __GLASGOW_HASKELL__ < 708
data SPEC = SPEC | SPEC2
#if __GLASGOW_HASKELL__ >= 700
+#ifndef DEBIAN_NO_GHCI
{-# ANN type SPEC ForceSpecConstr #-}
#endif
#endif
+#endif
emptyStream :: String
{-# NOINLINE emptyStream #-}
|
