Wrap long function calls in UI (#635)

crytic · Apr 5, 2021 · 70f7ad0 · 70f7ad0
1 parent fc55333
commit 70f7ad0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Echidna/UI/Widgets.hs b/lib/Echidna/UI/Widgets.hs
@@ -75,7 +75,7 @@ summaryWidget c =
     <=>
     maybe emptyWidget str (ppCoverage $ c ^. coverage)
     <=>
-    maybe emptyWidget str (ppCorpus $ c ^. corpus) 
+    maybe emptyWidget str (ppCorpus $ c ^. corpus)
   )
 
 testsWidget :: (MonadReader x m, Has CampaignConf x, Has Names x, Has TxConf x)
@@ -129,7 +129,7 @@ failWidget b xs = do
     let ordinals = str . printf "%d." <$> [1 :: Int ..]
     pure $
       foldl (<=>) emptyWidget $
-        zipWith (<+>) ordinals (withAttr "tx" . str <$> ppTxs)
+        zipWith (<+>) ordinals (withAttr "tx" . strWrap <$> ppTxs)
 
 failureBadge :: Widget ()
 failureBadge = withAttr "failure" $ str "FAILED!"