From bccf177507812b80a032a0fc61e5b2670da70826 Mon Sep 17 00:00:00 2001
From: Jamie Bertram <jamie.bertram@tweag.io>
Date: Mon, 17 Jan 2022 17:36:20 -0500
Subject: [PATCH] Fix warnings

---
 marlowe-dashboard-client/spago.dhall                         | 1 -
 marlowe-dashboard-client/src/Capability/Wallet.purs          | 4 +---
 .../src/Component/ContractSetupForm.purs                     | 5 ++---
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/marlowe-dashboard-client/spago.dhall b/marlowe-dashboard-client/spago.dhall
index c0016f7f1e..9c87b13760 100644
--- a/marlowe-dashboard-client/spago.dhall
+++ b/marlowe-dashboard-client/spago.dhall
@@ -50,7 +50,6 @@ You can edit this file as you like.
   , "transformers"
   , "tuples"
   , "unfoldable"
-  , "unsafe-coerce"
   , "uuid"
   , "validation"
   , "web-common"
diff --git a/marlowe-dashboard-client/src/Capability/Wallet.purs b/marlowe-dashboard-client/src/Capability/Wallet.purs
index ebc4ca3e9a..efce058d04 100644
--- a/marlowe-dashboard-client/src/Capability/Wallet.purs
+++ b/marlowe-dashboard-client/src/Capability/Wallet.purs
@@ -22,11 +22,9 @@ import Component.Contacts.Types (WalletId, WalletInfo)
 import Control.Monad.Except (lift, runExceptT)
 import Halogen (HalogenM)
 import Marlowe as WBE
-import Marlowe.Run.Wallet.V1 (GetTotalFundsResponse(..))
-import Marlowe.Semantics (Assets)
+import Marlowe.Run.Wallet.V1 (GetTotalFundsResponse)
 import Plutus.V1.Ledger.Tx (Tx)
 import Types (AjaxResponse)
-import Unsafe.Coerce (unsafeCoerce)
 
 -- FIXME: Abstract away AjaxResponse (just return an `m ResponseType` and
 -- handle API failures in the concrete Monad instance).
diff --git a/marlowe-dashboard-client/src/Component/ContractSetupForm.purs b/marlowe-dashboard-client/src/Component/ContractSetupForm.purs
index fef38708ee..3a5953ea44 100644
--- a/marlowe-dashboard-client/src/Component/ContractSetupForm.purs
+++ b/marlowe-dashboard-client/src/Component/ContractSetupForm.purs
@@ -19,7 +19,6 @@ import Data.Map as Map
 import Data.Set (Set)
 import Data.Set as Set
 import Data.Validation.Semigroup (V(..))
-import Data.WalletNickname (WalletNicknameError(..))
 import Data.WalletNickname as WN
 import Effect.Aff.Class (class MonadAff)
 import Forms (InputSlots)
@@ -155,7 +154,7 @@ component = Hooks.component \{ outputToken } input -> Hooks.do
   let { addressBook, roles, timeouts, values } = input
   form <- Hooks.captures { addressBook } Hooks.useMemo \_ -> mkForm addressBook
   { result, html } <- useForm form (initialFormInput roles timeouts values)
-  let back = Hooks.raise outputToken Back
-  let next = Hooks.raise outputToken <<< Next <$> result
+  let _back = Hooks.raise outputToken Back
+  let _next = Hooks.raise outputToken <<< Next <$> result
   Hooks.pure do
     html []