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/frontend/app/Schema.hs
+++ b/frontend/app/Schema.hs
@@ -100,11 +100,18 @@ schemaForm schema =
  fmap mergeJson . sequence $
    case schema.type_ of
      Object properties ->
-        ( \(AK.fromString -> k, "string") ->
-            A.Object . AM.singleton k
-              <$> ( F.mapValues (getO k) (setO k) $
-                      jsonString (AK.toString k)
-                  )
+        ( \(AK.fromString -> k, v) ->
+            case v of
+              "string" ->
+                A.Object . AM.singleton k
+                  <$> ( F.mapValues (getO k) (setO k) $
+                          jsonString (AK.toString k)
+                      )
+              "string?" ->
+                A.Object . AM.singleton k
+                  <$> ( F.mapValues (getO k) (setO k) $
+                          jsonString (AK.toString k)
+                      )
        )
          <$> (M.toList properties)