diff options
Diffstat (limited to 'frontend/app')
| -rw-r--r-- | frontend/app/Schema.hs | 17 |
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) |