diff -Nru haskell-rsa-2.3.0/debian/changelog haskell-rsa-2.3.1/debian/changelog
--- haskell-rsa-2.3.0/debian/changelog	2018-09-30 18:19:53.000000000 +0000
+++ haskell-rsa-2.3.1/debian/changelog	2019-08-08 12:58:58.000000000 +0000
@@ -1,3 +1,15 @@
+haskell-rsa (2.3.1-1build1) eoan; urgency=medium
+
+  * Rebuild against new GHC abi.
+
+ -- Gianfranco Costamagna <locutusofborg@debian.org>  Thu, 08 Aug 2019 14:58:58 +0200
+
+haskell-rsa (2.3.1-1) unstable; urgency=medium
+
+  * New upstream release
+
+ -- Clint Adams <clint@debian.org>  Sun, 28 Jul 2019 16:07:20 -0400
+
 haskell-rsa (2.3.0-3) unstable; urgency=medium
 
   [ Clint Adams ]
diff -Nru haskell-rsa-2.3.0/RSA.cabal haskell-rsa-2.3.1/RSA.cabal
--- haskell-rsa-2.3.0/RSA.cabal	2017-06-08 21:42:59.000000000 +0000
+++ haskell-rsa-2.3.1/RSA.cabal	2018-12-31 23:57:57.000000000 +0000
@@ -1,6 +1,6 @@
 name:       RSA
 category:   Cryptography, Codec
-version:    2.3.0
+version:    2.3.1
 license:    BSD3
 license-file: LICENSE
 author:     Adam Wick <awick@galois.com>
@@ -35,6 +35,7 @@
   type:           exitcode-stdio-1.0
   Main-Is:        Test.hs
   hs-source-dirs: src,.
+  other-modules:  Codec.Crypto.RSA.Pure
   build-depends:  base                       >= 4.6     && < 7.0,
                   binary                     >  0.7     && < 1.0,
                   bytestring                 >  0.8     && < 0.12,
diff -Nru haskell-rsa-2.3.0/Test.hs haskell-rsa-2.3.1/Test.hs
--- haskell-rsa-2.3.0/Test.hs	2017-06-08 21:42:59.000000000 +0000
+++ haskell-rsa-2.3.1/Test.hs	2018-12-31 23:57:57.000000000 +0000
@@ -96,10 +96,13 @@
 
 instance Arbitrary LargePrime where
   arbitrary =
-    do Right (g :: HashDRBG) <- (newGen . BSS.pack) `fmap` replicateM 4096 arbitrary
-       case largeRandomPrime g 64 of
-         Left _ -> fail "Large prime generation failure."
-         Right (i, _) -> return (LP i)
+    do seed <- BSS.pack `fmap` replicateM 4096 arbitrary
+       case newGen seed of
+        Left _ -> fail "DRBG initialization error."
+        Right (g :: HashDRBG) ->
+          case largeRandomPrime g 64 of
+            Left _ -> fail "Large prime generation failure."
+            Right (i, _) -> return (LP i)
 
 data KeyPairIdx = KPI Int
  deriving (Show)