add `string?`-typed fields

1 files changed, 12 insertions, 5 deletions

diff --git a/frontend/app/Schema.hs b/frontend/app/Schema.hs
index 517439d..ee958d8 100644
--- 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)