From 324ee5e50f88b5877f29164ca9c3e1c6c5161251 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Sat, 12 Oct 2024 11:56:25 +0200 Subject: add date-time scalars and conform further to json schema --- backend/app/Main.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'backend') diff --git a/backend/app/Main.hs b/backend/app/Main.hs index 063bb1a..24a110f 100644 --- a/backend/app/Main.hs +++ b/backend/app/Main.hs @@ -108,17 +108,12 @@ fromAutoTypes path (U.Object ps) = ("$id", J.toJSON @String (path <> ".schema.json")), ("title", J.toJSON @String path), ("type", J.toJSON @String "object"), - ("properties", J.toJSON (M.map toProperty ps)), + ("properties", J.toJSON ps), ("required", J.toJSON (M.keys (M.filter isRequired ps))) ] where isRequired (U.Option _) = False isRequired _ = True - toProperty :: U.T -> M.Map String String - toProperty (U.Scalar "string") = M.fromList [("type", "string")] - toProperty (U.Option (Just (U.Scalar "string"))) = M.fromList [("type", "string")] - toProperty (U.Reference i) = M.fromList [("$ref", i)] - toProperty x = error ("unhandled type: " <> show x) fromAutoTypes _ _ = error "Only JSON objects are supported." watch :: TMVar Repo -> FilePath -> G.RefName -> IO () -- cgit v1.2.3