View on GitHub
File Changes
spend :: (AsContractError e, HasBlockchainActions s) => Contract s e ()
spend = do -- <1>
    (ins, pk) <- collectRec
-
    void (submitTx (mkTx ins pk))
+
    void (submitUnbalancedTx (mkTx ins pk))
----
<1> We use Haskell's do notation to signal the start of a sequence of actions