@@ -315,11 +315,11 @@ validateNumber n = withConfig $ \_cfg -> withSchema $ \sch -> do
316 check maximum_ $ \m ->
316 check maximum_ $ \m ->
317 when (if exMax then (n >= m) else (n > m)) $
317 when (if exMax then (n >= m) else (n > m)) $
318− invalid ("value " ++ show n ++ " exceeds maximum (should be " ++ if exMax then "<" else "<=" ++ show m ++ ")")
318+ invalid ("value " ++ show n ++ " exceeds maximum (should be " ++ (if exMax then "<" else "<=") ++ show m ++ ")")
320 check minimum_ $ \m ->
320 check minimum_ $ \m ->
321 when (if exMin then (n <= m) else (n < m)) $
321 when (if exMin then (n <= m) else (n < m)) $
322− invalid ("value " ++ show n ++ " falls below minimum (should be " ++ if exMin then ">" else ">=" ++ show m ++ ")")
322+ invalid ("value " ++ show n ++ " falls below minimum (should be " ++ (if exMin then ">" else ">=") ++ show m ++ ")")
324 check multipleOf $ \k ->
324 check multipleOf $ \k ->
325 when (not (isInteger (n / k))) $
325 when (not (isInteger (n / k))) $