Fix non-terminating fromPParams

cardano-foundation · May 18, 2020 · f0a62c1 · f0a62c1
1 parent e6cac60
commit f0a62c1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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