Fix compilation errors

cardano-scaling · Sep 2, 2021 · f72ef52 · f72ef52
1 parent c9c3f20
commit f72ef52
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git 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
@@ -137,6 +137,9 @@ data MockChain = MockChain
   }
   deriving (Eq, Show, Generic, ToJSON, FromJSON)
 
+instance Arbitrary MockChain where
+  arbitrary = genericArbitrary
+
 defaultMockChain :: MockChain
 defaultMockChain =
   MockChain