Derive Data

haskell-github-trust · Dec 19, 2013 · 17d59fc · 17d59fc
1 parent e7f8ab6
commit 17d59fc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Crypto/Random.hs b/Crypto/Random.hs
@@ -39,6 +39,7 @@ import Control.Exception
 import Crypto.Types
 import Crypto.Util
 import Data.Bits (xor, setBit, shiftR, shiftL, (.&.))
+import Data.Data
 import Data.List (foldl')
 import Data.Tagged
 import Data.Typeable
@@ -75,7 +76,7 @@ data GenError =
         | NeedsInfiniteSeed     -- ^ This generator can not be
                                 -- instantiated or reseeded with a
                                 -- finite seed (ex: 'SystemRandom')
-  deriving (Eq, Ord, Show, Read, Typeable)
+  deriving (Eq, Ord, Show, Read, Data, Typeable)
 
 data ReseedInfo
     = InXBytes {-# UNPACK #-} !Word64   -- ^ Generator needs reseeded in X bytes