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

flipstone · Apr 9, 2024 · 3be6c7b · 3be6c7b
1 parent 9ff6be9
commit 3be6c7b
Showing 1 changed file with 10 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,16 @@ 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
+          <> ", enums options are "
+          <> show (OA._schemaEnum schema)
+          <> ", description is "
+          <> show (OA._schemaDescription schema)
 
 mkOpenApiNumberFormat :: HC.TypeName -> OA.Schema -> CGU.CodeGen CGU.CodeGenDataFormat
 mkOpenApiNumberFormat typeName schema = do