SCP-5012 Cleaned up query client peer.

input-output-hk · Feb 7, 2023 · 8e13770 · 8e13770
1 parent 372fdc1
commit 8e13770
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/marlowe-apps/src/Language/Marlowe/Protocol/Query/Client/Extra.hs b/marlowe-apps/src/Language/Marlowe/Protocol/Query/Client/Extra.hs
@@ -1,6 +1,8 @@
 
 {-# LANGUAGE DataKinds #-}
+{-# LANGUAGE EmptyCase #-}
 {-# LANGUAGE GADTs #-}
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE RankNTypes #-}
 
 
@@ -10,10 +12,10 @@ module Language.Marlowe.Protocol.Query.Client.Extra
   ) where
 
 
-import Language.Marlowe.Protocol.Query.Client
-import Language.Marlowe.Protocol.Query.Types
+import Language.Marlowe.Protocol.Query.Client (MarloweQueryClient(..))
+import Language.Marlowe.Protocol.Query.Types (MarloweQuery(..))
 import Network.Protocol.Driver (hoistPeer)
-import Network.TypedProtocol
+import Network.TypedProtocol (NobodyHasAgency, Peer(Done), PeerRole(AsClient))
 
 
 marloweQueryClientPeer