NFData ByteString instance for GHC-7.4

This commit is contained in:
Nikolay Yakimov 2016-01-09 18:51:18 +03:00
parent c9a832de0f
commit 4ff819906d
2 changed files with 12 additions and 0 deletions

View File

@ -101,6 +101,11 @@ import Module
import qualified Data.IntSet as I (IntSet, empty) import qualified Data.IntSet as I (IntSet, empty)
#endif #endif
#if __GLASGOW_HASKELL__ < 706
import Control.DeepSeq (NFData(rnf))
import Data.ByteString.Lazy.Internal (ByteString(..))
#endif
import Bag import Bag
import Lexer as L import Lexer as L
import Parser import Parser
@ -564,3 +569,9 @@ mkErrStyle' = Outputable.mkErrStyle
#else #else
mkErrStyle' _ = Outputable.mkErrStyle mkErrStyle' _ = Outputable.mkErrStyle
#endif #endif
#if __GLASGOW_HASKELL__ < 706
instance NFData ByteString where
rnf Empty = ()
rnf (Chunk _ b) = rnf b
#endif

View File

@ -55,6 +55,7 @@ import Prelude
import Language.Haskell.GhcMod.Types hiding (LineSeparator, MonadIO(..)) import Language.Haskell.GhcMod.Types hiding (LineSeparator, MonadIO(..))
import Language.Haskell.GhcMod.Monad.Types hiding (MonadIO(..)) import Language.Haskell.GhcMod.Monad.Types hiding (MonadIO(..))
import Language.Haskell.GhcMod.Gap ()
class ProcessOutput a where class ProcessOutput a where
hGetContents' :: Handle -> IO a hGetContents' :: Handle -> IO a