29 lines
733 B
Haskell
29 lines
733 B
Haskell
|
-- |
|
||
|
|
-- Module : Data.Memory.Internal.DeepSeq
|
||
|
|
-- License : BSD-style
|
||
|
|
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
|
||
|
|
-- Stability : experimental
|
||
|
|
-- Portability : unknown
|
||
|
|
--
|
||
|
|
-- Simple abstraction module to allow compilation without deepseq
|
||
|
|
-- by defining our own NFData class if not compiling with deepseq
|
||
|
|
-- support.
|
||
|
|
--
|
||
|
|
{-# LANGUAGE CPP #-}
|
||
|
|
module Data.Memory.Internal.DeepSeq
|
||
|
|
( NFData(..)
|
||
|
|
) where
|
||
|
|
|
||
|
|
#ifdef WITH_DEEPSEQ_SUPPORT
|
||
|
|
import Control.DeepSeq
|
||
|
|
#else
|
||
|
|
import Data.Word
|
||
|
|
|
||
|
|
class NFData a where rnf :: a -> ()
|
||
|
|
|
||
|
|
instance NFData Word8 where rnf w = w `seq` ()
|
||
|
|
instance NFData Word16 where rnf w = w `seq` ()
|
||
|
|
instance NFData Word32 where rnf w = w `seq` ()
|
||
|
|
instance NFData Word64 where rnf w = w `seq` ()
|
||
|
|
#endif
|