@@ -146,6 +146,9 @@ runReader reader input =
146 | otherwise -> defaultParseError input
146 | otherwise -> defaultParseError input
148-- | Run @'Reader'@ to parse bounded integral value with bounds checking.
148-- | Run @'Reader'@ to parse bounded integral value with bounds checking.
150+-- >>> parseBounded decimal "256" :: Either Text Word8
151+-- Left "out of bounds: `256' (should be between 0 and 255)"
149parseBounded :: forall a. (Bounded a, Integral a) => Reader Integer -> Text -> Either Text a
152parseBounded :: forall a. (Bounded a, Integral a) => Reader Integer -> Text -> Either Text a
150parseBounded reader input = do
153parseBounded reader input = do
151 n <- runReader reader input
154 n <- runReader reader input