From 6d1c5eb7a844f6d56ef89281976e25c1b38ce6fb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Kihlberg?= <bjorn.wilhelm.kihlberg@gmail.com>
Date: Fri, 10 Mar 2023 15:51:16 +0100
Subject: [PATCH] fix conflicts

---
 .../Language/Marlowe/Runtime/ChainSync/Api.hs    | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/marlowe-chain-sync/src/Language/Marlowe/Runtime/ChainSync/Api.hs b/marlowe-chain-sync/src/Language/Marlowe/Runtime/ChainSync/Api.hs
index 706ff6452d..056f931bcc 100644
--- a/marlowe-chain-sync/src/Language/Marlowe/Runtime/ChainSync/Api.hs
+++ b/marlowe-chain-sync/src/Language/Marlowe/Runtime/ChainSync/Api.hs
@@ -37,7 +37,7 @@ import Control.Monad (guard, (<=<), (>=>))
 import Data.Aeson
   ( FromJSON(..)
   , FromJSONKey(..)
-  , FromJSONKeyFunction(FromJSONKeyTextParser)
+  , FromJSONKeyFunction(FromJSONKeyText, FromJSONKeyTextParser)
   , ToJSON
   , ToJSONKey
   , Value(..)
@@ -49,13 +49,6 @@ import qualified Data.Aeson as A
 import qualified Data.Aeson as Aeson
 import qualified Data.Aeson.KeyMap as KeyMap
 import Data.Aeson.Types (parseFail, toJSONKeyText)
-import Control.Monad (guard, (>=>))
-import Data.Aeson
-  (FromJSON, FromJSONKey, FromJSONKeyFunction(FromJSONKeyText), ToJSON, ToJSONKey, Value(..), object, toJSON, (.=))
-import qualified Data.Aeson as A
-import qualified Data.Aeson as Aeson
-import qualified Data.Aeson.KeyMap as KeyMap
-import Data.Aeson.Types (toJSONKeyText)
 import qualified Data.Aeson.Types as A
 import Data.Bifunctor (bimap)
 import Data.Binary (Binary(..), Get, Put, get, getWord8, put, putWord8)
@@ -350,9 +343,6 @@ instance ToJSON Base16 where
 instance ToJSONKey Base16 where
   toJSONKey = toJSONKeyText $ encodeBase16 . unBase16
 
-instance FromJSON Base16 where
-  parseJSON = Aeson.withText "Base16" (pure . fromString . T.unpack)
-
 newtype DatumHash = DatumHash { unDatumHash :: ByteString }
   deriving stock (Eq, Ord, Generic)
   deriving newtype (Binary)
@@ -1022,9 +1012,9 @@ instance Query.IsQuery ChainSyncQuery where
     TagGetUTxOs -> do
       word <- getWord8
       GetUTxOs <$> case word of
-        0x01 -> do
+        0x01 ->
           GetUTxOsAtAddresses <$> get
-        0x02 -> do
+        0x02 ->
           GetUTxOsForTxOutRefs <$> get
         _    -> fail "Invalid GetUTxOsQuery tag"
   putDelimiter = \case