resolving review comments

Author: mikekeke

src/BotPlutusInterface/Config.hs

@@ -94,7 +94,7 @@ txStatusPollingSpec =
   sectionsSpec "TxStatusPolling configuration" $ do
     spInterval <-
       reqSection'
-        "milliseconds"
+        "microseconds"
         naturalSpec
         "Interval between chain-index queries for transactions status change detection"
     spBlocksTimeOut <-

src/BotPlutusInterface/Contract.hs

@@ -33,8 +33,6 @@ import BotPlutusInterface.Types (
   LogLevel (Debug, Warn),
   Tip (block, slot),
   TxFile (Signed),
-  -- spBlocksTimeOut,
-  -- spInterval,
  )
 import Cardano.Api (AsType (..), EraInMode (..), Tx (Tx))
 import Control.Lens (preview, (^.))
@@ -233,15 +231,10 @@ awaitTxStatusChange contractEnv txId = do
     txStatus <- getStatus
     case (txStatus, currBlock > cutOffBlock) of
       (status, True) -> do
-        logDebug . mconcat $
-          [ "Timeout for waiting `TxId "
-          , show txId
-          , "` status cahnge reached"
-          , " - waited "
-          , show pollTimeout
-          , " blocks."
-          , " Current status: "
-          , show status
+        logDebug . mconcat . fmap mconcat $
+          [ ["Timeout for waiting `TxId ", show txId, "` status change reached"]
+          , [" - waited ", show pollTimeout, " blocks."]
+          , [" Current status: ", show status]
           ]
         return status
       (Unknown, _) -> do

test/Spec/BotPlutusInterface/TxStatusChange.hs

@@ -64,7 +64,7 @@ testTxFoundAndConfirmed = do
 
   case runContractPure contract initState of
     (Left err, _) -> assertFailure $ Text.unpack err
-    (Right Unknown, _) -> assertFailure "State should not be Unknown"
+    (Right Unknown, _) -> assertFailure "Tx status should not be Unknown but it is"
     (Right _, _) -> pure ()
 
 testStopWaitingByTimeout :: Assertion