Skip to content

Commit

Permalink
Fix hlint warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
elopez committed Sep 17, 2024
1 parent e9bb90d commit 2b69098
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion lib/Echidna/ABI.hs
Original file line number Diff line number Diff line change
Expand Up @@ -79,7 +79,7 @@ ppAbiValue labels = \case
AbiTuple v -> "(" <> commaSeparated v <> ")"
AbiFunction v -> show v
where
commaSeparated v = intercalate ", " (ppAbiValue <$> pure labels <*> toList v)
commaSeparated v = intercalate ", " $ ppAbiValue labels <$> toList v

ppAddr :: Map Addr Text -> Addr -> String
ppAddr labels addr = "0x" <> showHex addr "" <> label
Expand Down
2 changes: 1 addition & 1 deletion lib/Echidna/Pretty.hs
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ import Echidna.Types.Tx (TxCall(..))
ppSolCall :: Map Addr Text -> SolCall -> String
ppSolCall labels (t, vs) =
(if t == "" then unpack "*fallback*" else unpack t)
++ "(" ++ intercalate "," (ppAbiValue <$> pure labels <*> vs) ++ ")"
++ "(" ++ intercalate "," (ppAbiValue labels <$> vs) ++ ")"

-- | Pretty-print some 'TxCall'
ppTxCall :: Map Addr Text -> TxCall -> String
Expand Down
2 changes: 1 addition & 1 deletion lib/Echidna/UI/Report.hs
Original file line number Diff line number Diff line change
Expand Up @@ -78,7 +78,7 @@ ppTx vm printName tx = do
<> (if tx.value == 0 then "" else " Value: " <> show tx.value)
<> ppDelay tx.delay
where
prettyName names t addr = case (names t addr) of
prettyName names t addr = case names t addr of
"" -> ""
s -> s <> label addr
label addr = case Map.lookup addr vm.labels of
Expand Down

0 comments on commit 2b69098

Please sign in to comment.