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 --- backend/app/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'backend/app/Main.hs') diff --git a/backend/app/Main.hs b/backend/app/Main.hs index d26259b..8bd02b2 100644 --- a/backend/app/Main.hs +++ b/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 -- cgit v1.2.3