@@ -22,7 +22,7 @@
2222-- Validate JSON values with Swagger Schema.
2323module Data.Swagger.Internal.Schema.Validation where
2424
25−import Prelude ()
25+import Prelude ()
2626import Prelude.Compat
2727
2828import Control.Applicative
@@ -502,7 +502,7 @@ validateParamSchemaType value = withSchema $ \sch ->
502502 bad -> invalid $ "expected JSON value of type " ++ showType bad
503503
504504showType :: (Maybe (SwaggerType t), Value) -> String
505−showType (Just type_, _) = show type_
505+showType (Just ty, _) = show ty
506506showType (Nothing, Null) = "SwaggerNull"
507507showType (Nothing, Bool _) = "SwaggerBoolean"
508508showType (Nothing, Number _) = "SwaggerNumber"