Improve lovelace parser failure in the cli

IntersectMBO · Nov 12, 2020 · bd63271 · bd63271
1 parent 8fe51ae
commit bd63271
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs b/cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs
@@ -2192,7 +2192,12 @@ pProtocolVersion =
 --
 
 parseLovelace :: Atto.Parser Lovelace
-parseLovelace = Lovelace <$> Atto.decimal
+parseLovelace = do
+ i <- Atto.decimal
+ case i > toInteger (maxBound :: Word64) of
+ True -> fail $ show i
+ <> " lovelace exceeds the Word64 upper bound"
+ False -> return $ Lovelace i
 
 parseAddress :: Atto.Parser (Address Shelley)
 parseAddress = do