[sc-36080] Better error on non-string enum

flipstone · Apr 9, 2024 · 6299da2 · 6299da2
1 parent 9ff6be9
commit 6299da2
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/json-fleece-openapi3/src/Fleece/OpenApi3.hs b/json-fleece-openapi3/src/Fleece/OpenApi3.hs
@@ -948,7 +948,12 @@ enumValueToText schema value =
       case OA._schemaNullable schema of
         Just True -> pure Nothing
         _ -> CGU.codeGenError "null listed as enum value in a non-nullable schema"
-    _ -> CGU.codeGenError "Non-string value found for enum"
+    _ ->
+      CGU.codeGenError $
+        "Non-string value found for enum in schema titled '"
+          <> foldMap T.unpack (OA._schemaTitle schema)
+          <> "', value is: "
+          <> show value
 
 mkOpenApiNumberFormat :: HC.TypeName -> OA.Schema -> CGU.CodeGen CGU.CodeGenDataFormat
 mkOpenApiNumberFormat typeName schema = do