@@ -508,7 +508,7 @@ instance FromHttpApiData Natural where
508 parseUrlPiece s = do
508 parseUrlPiece s = do
509 n <- runReader (signed decimal) s
509 n <- runReader (signed decimal) s
511− then Left ("undeflow: " <> s <> " (should be a non-negative integer)")
511+ then Left ("underflow: " <> s <> " (should be a non-negative integer)")
512 else Right (fromInteger n)
512 else Right (fromInteger n)