Minor formatting improvement for some debugging lines.

IntersectMBO · Oct 29, 2020 · 8c95736 · 8c95736
1 parent b1b1292
commit 8c95736
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/playground-common/src/Auth.hs b/playground-common/src/Auth.hs
@@ -208,7 +208,7 @@ authStatus cookieHeader = do
                     "Failed to extract github token at step: " <> showText err
                 pure Anonymous
     let authStatusResult = AuthStatus {..}
-    logDebugN $ "Authentication status is:" <> showText authStatusResult
+    logDebugN $ "Authentication status is: " <> showText authStatusResult
     pure authStatusResult
 
 extractGithubToken ::
@@ -233,7 +233,7 @@ extractGithubToken signer now cookieHeader =
             Map.lookup githubTokenClaim .
             JWT.unClaimsMap . JWT.unregisteredClaims $
             claims
-        attempt $ "Extracting token as a string:" <> showText json
+        attempt $ "Extracting token as a string: " <> showText json
         withTrace $
             case json of
                 String token -> pure $ Token token

diff --git a/plutus-playground-client/src/Chain.purs b/plutus-playground-client/src/Chain.purs
@@ -104,7 +104,7 @@ emulatorEventPane (ChainEvent (TxnValidate (TxId txId))) =
 
 emulatorEventPane (NotificationEvent notificationEvent) =
   div_
-    [ text $ "Notification event:" <> show notificationEvent ]
+    [ text $ "Notification event: " <> show notificationEvent ]
 
 emulatorEventPane (ChainEvent (TxnValidationFail (TxId txId) error)) =
   div [ class_ $ ClassName "error" ]

diff --git a/plutus-scb/test/Plutus/SCB/CoreSpec.hs b/plutus-scb/test/Plutus/SCB/CoreSpec.hs
@@ -315,7 +315,7 @@ assertEqual msg expected actual =
         $ Text.unwords
             [ msg
             , "Expected: " <> tshow expected
-            , "Actual:" <> tshow actual
+            , "Actual: " <> tshow actual
             ]
 
 assertBool ::