@@ -25,6 +25,7 @@ module Data.OpenApi.Internal.Schema.Validation where
2525
2626import Prelude ()
2727import Prelude.Compat
28+import Debug.Trace
2829
2930import Control.Applicative
3031import Control.Lens hiding (allOf)
@@ -472,7 +473,7 @@ validateSchemaType val = withSchema $ \sch ->
472473 res <- forM variants $ \var ->
473474 (True <$ validateWithSchemaRef var val) <|> (return False)
474475 case length $ filter id res of
475− 0 -> invalid $ "Value not valid under any of 'oneOf' schemas: " ++ show val
476+ 0 -> traceShow (val, variants) $ invalid $ "Value not valid under any of 'oneOf' schemas: " ++ show val
476477 1 -> valid
477478 _ -> invalid $ "Value matches more than one of 'oneOf' schemas: " ++ show val
478479 (view allOf -> Just variants) -> do