Remove dependency on extra in local-cluster

The other uses of `extra` are kept due to semantics of `withTempFile`.

lib/local-cluster/lib/Cardano/Wallet/Faucet.hs

@@ -116,9 +116,6 @@ import Control.Concurrent
 import Control.Exception
     ( throwIO
     )
-import Control.Monad.Extra
-    ( concatMapM
-    )
 import Control.Monad.IO.Class
     ( liftIO
     )
@@ -131,9 +128,6 @@ import Data.Functor
 import Data.List
     ( unfoldr
     )
-import Data.Tuple.Extra
-    ( dupe
-    )
 import Numeric.Natural
     ( Natural
     )
@@ -263,7 +257,7 @@ anyFunds mnemonicRange mlength style start end networkTag= FaucetM $ do
                     end
             pure $ ias <&> \ia ->
                 (unFaucetAddress . unIndexedAddress $ ia)
-    concatMapM run' $ enumRange mnemonicRange
+    concat <$> mapM run' (enumRange mnemonicRange)
 
 shelleyMnemonicRange :: MnemonicRange
 shelleyMnemonicRange = MnemonicRange 0 399
@@ -570,7 +564,7 @@ hwLedgerFunds networkTag = do
         addrXPrv = deriveAddressPrivateKey accXPrv Icarus.UTxOExternal
         paymentKeyIxs :: [Index (AddressIndexDerivationType Icarus) PaymentK] =
             let firstIx = minBound
-            in  firstIx : unfoldr (fmap dupe . nextIndex) firstIx
+            in  firstIx : unfoldr (fmap (\x -> (x, x)) . nextIndex) firstIx
 
 massiveWalletRange :: MnemonicRange
 massiveWalletRange = nextRange 1 preregKeyWalletRange

lib/local-cluster/local-cluster.cabal

@@ -122,7 +122,6 @@ library
     , contra-tracer >= 0.1 && < 0.3
     , crypto-primitives
     , directory >= 1.3.8 && < 1.4
-    , extra
     , faucet
     , filepath >= 1.4.300.1 && < 1.6
     , foldl >= 1.4.17 && < 1.5