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 #-}
|