@@ -247,7 +247,7 @@ parseBounded :: forall a. (Bounded a, Integral a) => Reader Integer -> Text -> E
247247parseBounded reader input = do
248248 n <- runReader reader input
249249 if (n > h || n < l)
250− then Left ("out of bounds: `" <> input <> "' (should be between " <> T.pack (show l) <> " and " <> T.pack (show h) <> ")")
250+ then Left ("out of bounds: `" <> input <> "' (should be between " <> showt l <> " and " <> showt h <> ")")
251251 else Right (fromInteger n)
252252 where
253253 l = toInteger (minBound :: a)