Better error messages

ethereum · Jan 20, 2025 · f0c3246 · f0c3246
1 parent fd65aad
commit f0c3246
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/EVM/Solidity.hs b/src/EVM/Solidity.hs
@@ -418,14 +418,14 @@ readFoundryJSON contractName json = do
   runtimeCode <- maybeToEither "missing 'deployedBytecode.object' field" $
     (toCode contractName) . strip0x'' <$> runtime ^? key "object" % _String
   runtimeSrcMap <- case runtime ^? key "sourceMap" % _String of
-    Nothing -> Right $ force "" $ makeSrcMaps ""  -- sourceMap is optional
+    Nothing -> Right $ force "Source map creation error" $ makeSrcMaps ""  -- sourceMap is optional
     Just smap -> maybeToEither "invalid sourceMap format" $ makeSrcMaps smap
 
   creation <- maybeToEither "missing 'bytecode' field" $ json ^? key "bytecode"
   creationCode <- maybeToEither "missing 'bytecode.object' field" $
     (toCode contractName) . strip0x'' <$> creation ^? key "object" % _String
   creationSrcMap <- case creation ^? key "sourceMap" % _String of
-    Nothing -> Right $ force "" $ makeSrcMaps ""  -- sourceMap is optional
+    Nothing -> Right $ force "Source map creation error" $ makeSrcMaps ""  -- sourceMap is optional
     Just smap -> maybeToEither "invalid sourceMap format" $ makeSrcMaps smap
 
   ast <- maybeToEither "missing 'ast' field. Recmpile with `forge clean && forge build --ast`" $ json ^? key "ast"