From d39c1665f842bb93fd2c7e291a11aa000120350c Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
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')
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