d911a34258
How to reproduce:
```
$ cabal configure -f-support_deepseq
Resolving dependencies...
Configuring cryptonite-0.23...
$ cabal build
Building cryptonite-0.23...
Preprocessing library cryptonite-0.23...
[114 of 120] Compiling Crypto.PubKey.RSA.Types ( Crypto/PubKey/RSA/Types.hs, dist/build/Crypto/PubKey/RSA/Types
Crypto/PubKey/RSA/Types.hs:48:30: error:
• No instance for (NFData Integer) arising from a use of ‘rnf’
• In the first argument of ‘seq’, namely ‘rnf n’
In the expression: rnf n `seq` rnf e `seq` sz `seq` ()
In an equation for ‘rnf’:
rnf (PublicKey sz n e) = rnf n `seq` rnf e `seq` sz `seq` ()
```
The fix is to inctoruce 'NFData Integer' instance to `Crypto/Internal/DeepSeq`.
Closes: https://github.com/haskell-crypto/cryptonite/issues/171
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
36 lines
900 B
Haskell
36 lines
900 B
Haskell
-- |
|
|
-- Module : Crypto.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 Crypto.Internal.DeepSeq
|
|
( NFData(..)
|
|
) where
|
|
|
|
#ifdef WITH_DEEPSEQ_SUPPORT
|
|
import Control.DeepSeq
|
|
#else
|
|
import Data.Word
|
|
import Data.ByteArray
|
|
|
|
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` ()
|
|
|
|
instance NFData Bytes where rnf b = b `seq` ()
|
|
instance NFData ScrubbedBytes where rnf b = b `seq` ()
|
|
|
|
instance NFData Integer where rnf i = i `seq` ()
|
|
|
|
#endif
|