From f72ef52ac147f0f6f1a9cdd6becc3e5c37dadbc9 Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud.bailly@iohk.io>
Date: Thu, 2 Sep 2021 14:30:55 +0000
Subject: [PATCH] Fix compilation errors

---
 hydra-node/src/Hydra/Chain/ZeroMQ.hs | 4 ++--
 hydra-node/src/Hydra/Network.hs      | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/hydra-node/src/Hydra/Chain/ZeroMQ.hs b/hydra-node/src/Hydra/Chain/ZeroMQ.hs
index e7e66e97998..0b5e723fae8 100644
--- a/hydra-node/src/Hydra/Chain/ZeroMQ.hs
+++ b/hydra-node/src/Hydra/Chain/ZeroMQ.hs
@@ -13,8 +13,8 @@ import Control.Monad.Class.MonadSTM (modifyTVar', newTBQueue, newTVarIO, readTBQ
 import Data.Aeson (eitherDecodeStrict, encode)
 import qualified Data.Text.Encoding as Enc
 import Hydra.Chain (Chain (..), ChainComponent, OnChainTx, PostChainTx, toOnChainTx)
-import Hydra.Ledger (Tx)
-import Hydra.Logging (ToObject, Tracer, traceWith)
+import Hydra.Ledger (Tx, Utxo)
+import Hydra.Logging (Tracer, traceWith)
 import Hydra.Network (MockChain (..))
 import qualified Hydra.Network as Network
 import System.ZMQ4.Monadic (
diff --git a/hydra-node/src/Hydra/Network.hs b/hydra-node/src/Hydra/Network.hs
index f7930a69afb..6f95030678f 100644
--- a/hydra-node/src/Hydra/Network.hs
+++ b/hydra-node/src/Hydra/Network.hs
@@ -137,6 +137,9 @@ data MockChain = MockChain
   }
   deriving (Eq, Show, Generic, ToJSON, FromJSON)
 
+instance Arbitrary MockChain where
+  arbitrary = genericArbitrary
+
 defaultMockChain :: MockChain
 defaultMockChain =
   MockChain