small fixes

code/week06/app/oracle-pab.hs

@@ -12,7 +12,6 @@
 
 module Main
     ( main
-    , OracleContracts
     ) where
 
 import           Control.Monad                       (forM_, void, when)

code/week06/app/swap-client.hs

@@ -44,7 +44,7 @@ main = do
 
     readCommand :: IO Command
     readCommand = do
-        putStr "enter command (Offer amt, Retrieve or Use): "
+        putStr "enter command (Offer amt, Retrieve, Use or Funds): "
         s <- getLine
         maybe readCommand return $ readMaybe s
 

code/week06/src/Week06/Oracle/Funds.hs

@@ -30,7 +30,7 @@ ownFunds :: HasBlockchainActions s => Contract w s Text Value
 ownFunds = do
     pk    <- ownPubKey
     utxos <- utxoAt $ pubKeyAddress pk
-    let v = mconcat $ Map.elems $ txOutValue . txOutTxOut <$>  utxos
+    let v = mconcat $ Map.elems $ txOutValue . txOutTxOut <$> utxos
     logInfo @String $ "own funds: " ++ show (Value.flattenValue v)
     return v