add string?-typed fields

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

frontend/app/Schema.hs

@@ -100,7 +100,14 @@ schemaForm schema =
   fmap mergeJson . sequence $
     case schema.type_ of
       Object properties ->
-        ( \(AK.fromString -> k, "string") ->
+        ( \(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)