Hardcode the fee for faucet tx

hydra-cluster/src/Hydra/Cluster/Scenarios.hs

@@ -209,9 +209,8 @@ returnAssetsToFaucet tracer node@RunningNode{networkId, nodeSocket} sender = do
   (receivingVk, _) <- keysFor Faucet
   (senderVk, senderSk) <- keysFor sender
   utxo <- queryUTxOFor networkId nodeSocket QueryTip senderVk
-  -- TODO: 'balance' here is just `foldMap txOutValue` so it doesn't actually ballance anything.
-  -- How to exclude the fees from the amount? This hardcoded subtraction needs to go away
-  let returnBalance = (selectLovelace $ balance @Tx utxo) - 2_000_000
+  -- TODO: a bit ugly bit we need to subtract the fees manually here
+  let returnBalance = (selectLovelace $ balance @Tx utxo) - 1_200_000
   void $ sendFundsTo node (senderVk, senderSk) receivingVk returnBalance Normal (contramap FromFaucet tracer) False
   traceWith tracer $ ReturningToFaucet{actor = actorName sender, returnAmount = returnBalance}