add string?-typed fields

2024-06-06 15:20:13 +02:00
parent c7d0139116
commit d39c1665f8
2 changed files with 13 additions and 5 deletions
--- a/backend/app/Main.hs
+++ b/backend/app/Main.hs
@@ -91,6 +91,7 @@ fromAutoTypes path (U.Object ps) =
      ]
  where
    toProperty k (U.Scalar "string") = "string" :: String
+    toProperty k (U.Option (Just (U.Scalar "string"))) = "string?" :: String

 watch :: TMVar Repo -> FilePath -> G.RefName -> IO ()
 watch repoT root ref = do