Remove dead code (hashToUndo)

Author: matt-noonan

wallet-new/src/Cardano/Wallet/Kernel/Util/Core.hs

@@ -22,8 +22,6 @@ module Cardano.Wallet.Kernel.Util.Core (
   , txOuts
   , txIns
   , txAuxId
-    -- * Blocks
-  , hashToUndo
   ) where
 
 import           Universum
@@ -35,12 +33,9 @@ import           Data.Time.Clock.POSIX (getPOSIXTime)
 import           Data.Time.Units (fromMicroseconds)
 import           Serokell.Util (enumerate)
 
-import           Pos.Binary.Class (decodeFull')
-import qualified Pos.Chain.Block as Core
 import qualified Pos.Chain.Txp as Core
 import qualified Pos.Core as Core
 import           Pos.Crypto.Hashing (hash)
-import           Pos.DB.Class (SerializedUndo, unSerialized)
 
 import           Cardano.Wallet.Kernel.Util
 
@@ -102,16 +97,6 @@ txIns = Set.fromList . NE.toList . Core._txInputs . Core.taTx
 txAuxId :: Core.TxAux -> Core.TxId
 txAuxId = hash . Core.taTx
 
-{-------------------------------------------------------------------------------
-  Blocks
--------------------------------------------------------------------------------}
-
-hashToUndo :: (Core.HeaderHash -> IO (Maybe SerializedUndo)) -> Core.HeaderHash -> IO (Maybe Core.Undo)
-hashToUndo getSerUndo hh = do
-    getSerUndo hh <&> \case
-        Nothing    -> Nothing
-        Just bytes -> (either (const Nothing) Just . decodeFull' . unSerialized) bytes
-
 {-------------------------------------------------------------------------------
   External auxiliary
 -------------------------------------------------------------------------------}