From f0a62c1f5d8fce1e7111e985217132b6fd96a72e Mon Sep 17 00:00:00 2001
From: Johannes Lund <johannes.lund@iohk.io>
Date: Mon, 18 May 2020 12:26:44 +0200
Subject: [PATCH] Fix non-terminating fromPParams

---
 lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs
index 3df3b386345..689e989a892 100644
--- a/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs
+++ b/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs
@@ -356,7 +356,7 @@ fromPParams pp = W.TxParameters
     }
   where
     naturalToDouble :: Natural -> Double
-    naturalToDouble = naturalToDouble
+    naturalToDouble = fromIntegral
 
 -- | Convert genesis data into blockchain params and an initial set of UTxO
 fromGenesisData