Update src/HEVM.hs

Co-authored-by: dxo <[email protected]>
ethereum · Nov 13, 2023 · f78a5fa · f78a5fa
1 parent dcea80b
commit f78a5fa
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/HEVM.hs b/src/HEVM.hs
@@ -200,9 +200,7 @@ rewritesToExpr cmap rewrites = foldM rewriteToExpr cmap rewrites
 
 rewriteToExpr :: ContractMap -> Rewrite -> ActM ContractMap
 rewriteToExpr cmap (Constant _) = pure cmap
-rewriteToExpr cmap (Rewrite upd) = do
-  cmap' <- updateToExpr upd cmap
-  pure cmap'
+rewriteToExpr cmap (Rewrite upd) = updateToExpr upd cmap
 
 updatesToExpr :: [StorageUpdate] -> ContractMap -> ActM ContractMap
 updatesToExpr upds initmap = foldM (flip updateToExpr) initmap upds