squash more compiler warnings

dapphub · Nov 29, 2020 · e855b65 · e855b65
1 parent b5e6599
commit e855b65
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/hevm/src/EVM/ABI.hs b/src/hevm/src/EVM/ABI.hs
@@ -501,13 +501,13 @@ makeAbiValue typ str = case readP_to_S (parseAbiValue typ) str of
   ((val,_):_) -> val
 
 parseAbiValue :: AbiType -> ReadP AbiValue
-parseAbiValue (AbiUIntType n) = do W256 w256 <- readS_to_P reads
-                                   return $ AbiUInt n w256
-parseAbiValue (AbiIntType n) = do W256 w256 <- readS_to_P reads
-                                  return $ AbiInt n (num w256)
+parseAbiValue (AbiUIntType n) = do W256 w <- readS_to_P reads
+                                   return $ AbiUInt n w
+parseAbiValue (AbiIntType n) = do W256 w <- readS_to_P reads
+                                  return $ AbiInt n (num w)
 parseAbiValue AbiAddressType = AbiAddress <$> readS_to_P reads
-parseAbiValue AbiBoolType = (do W256 w256 <- readS_to_P reads
-                                return $ AbiBool (w256 /= 0))
+parseAbiValue AbiBoolType = (do W256 w <- readS_to_P reads
+                                return $ AbiBool (w /= 0))
                             <|> (do Boolz b <- readS_to_P reads
                                     return $ AbiBool b)
 parseAbiValue (AbiBytesType n) = AbiBytes n <$> do ByteStringS bytes <- readS_to_P reads