From 23d234783fbfd8a61b2fb5a9b02e39ea438b5c46 Mon Sep 17 00:00:00 2001
From: Heinrich Apfelmus <heinrich.apfelmus@iohk.io>
Date: Thu, 13 Jan 2022 13:11:50 +0100
Subject: [PATCH] Fix reviewer suggestion on Shelly.Compatibility

---
 lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs
index 9c1d160a287..43b6ad4675a 100644
--- a/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs
+++ b/lib/shelley/src/Cardano/Wallet/Shelley/Compatibility.hs
@@ -1310,11 +1310,6 @@ fromShelleyAddress = W.Address
 fromShelleyCoin :: SL.Coin -> W.Coin
 fromShelleyCoin (SL.Coin c) = Coin.unsafeFromIntegral c
 
-{-
-toShelleyCoin :: W.Coin -> SL.Coin
-toShelleyCoin (W.Coin c) = SL.Coin $ intCast c
--}
-
 fromCardanoTx :: Cardano.Tx era -> (W.Tx, TokenMap, TokenMap, [Certificate])
 fromCardanoTx = \case
     Cardano.ShelleyTx era tx -> case era of