Fix casing on OmitKey

flipstone · Dec 20, 2024 · e9b7436 · e9b7436
1 parent f870ee0
commit e9b7436
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/json-fleece-codegen-util/src/Fleece/CodeGenUtil.hs b/json-fleece-codegen-util/src/Fleece/CodeGenUtil.hs
@@ -1797,7 +1797,7 @@ fieldFleeceSchemaCode =
 fleeceFieldFunction :: FleeceSchemaField -> Bool -> HC.HaskellCode
 fleeceFieldFunction field useOptionalNullableBool
   | fieldRequired field = fleeceCoreVar "required"
-  | useOptionalNullableBool = fleeceCoreVar "optionalNullable" <> " " <> fleeceCoreVar "OmitKey"
+  | useOptionalNullableBool = fleeceCoreVar "optionalNullable" <> " " <> fleeceCoreConstructorVar "OmitKey"
   | otherwise = fleeceCoreVar "optional"
 
 mkFleeceSchemaField ::
@@ -2055,6 +2055,12 @@ fleeceCoreVar =
     . HC.varNameToCodeDefaultQualification
     . HC.toVarName "Fleece.Core" (Just "FC")
 
+fleeceCoreConstructorVar :: HC.FromCode c => T.Text -> c
+fleeceCoreConstructorVar =
+  HC.fromCode
+    . HC.varNameToCodeDefaultQualification
+    . HC.toConstructorVarName "Fleece.Core" (Just "FC")
+
 fleeceCoreFunApp :: HC.FromCode c => T.Text -> T.Text -> c
 fleeceCoreFunApp functionName argument =
   let