Fix warnings

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"

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).

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 []