git.iko.soy/typeable/http-api-data
on master help sign in
Use showt
042ec86Nickolay Kudasov
Web/HttpApiData/Internal.hs+1−1
compare with master
unifiedsplit
@@ -247,7 +247,7 @@ parseBounded :: forall a. (Bounded a, Integral a) => Reader Integer -> Text -> E
247parseBounded reader input = do
247parseBounded reader input = do
248 n <- runReader reader input
248 n <- runReader reader input
249 if (n > h || n < l)
249 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 <> ")")
251 else Right (fromInteger n)
251 else Right (fromInteger n)
252 where
252 where
253 l = toInteger (minBound :: a)
253 l = toInteger (minBound :: a)