From d39c1665f842bb93fd2c7e291a11aa000120350c Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 6 Jun 2024 15:20:13 +0200 Subject: add `string?`-typed fields --- frontend/app/Schema.hs | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'frontend/app') 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) -- cgit v1.2.3