diff --git a/lib/shelley/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs b/lib/shelley/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs
index 814b3dbe68e..c6cfe87dae5 100644
--- a/lib/shelley/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs
+++ b/lib/shelley/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs
@@ -3,7 +3,6 @@
 {-# LANGUAGE DuplicateRecordFields #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
@@ -214,7 +213,7 @@ estimateMaxInputsTests net cases = do
     describe ("estimateMaxNumberOfInputs for "<>k<>" on "<>show net) $ do
         forM_ cases $ \(GivenNumOutputs nOuts, ExpectedNumInputs nInps) -> do
             let (o,i) = (show nOuts, show nInps)
-            it ("order of magnitude, nOuts = " <> o <> " → nInps = " <> i) $
+            it ("order of magnitude, nOuts = " <> o <> " => nInps = " <> i) $
                 _estimateMaxNumberOfInputs @k net (Quantity 4096) Nothing nOuts
                     `shouldBe` nInps