From 07a2f177f440526a374ef3844a1c37ba38939861 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 11 Oct 2024 20:18:51 +0200 Subject: support references --- backend/app/Main.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'backend/app/Main.hs') diff --git a/backend/app/Main.hs b/backend/app/Main.hs index 282ef6c..a81d769 100644 --- a/backend/app/Main.hs +++ b/backend/app/Main.hs @@ -99,6 +99,8 @@ fromAutoTypes path (U.Object ps) = where toProperty (U.Scalar "string") = "string" :: String toProperty (U.Option (Just (U.Scalar "string"))) = "string?" :: String + toProperty (U.Reference i) = "$ref:" <> i + toProperty x = error ("unhandled type: " <> show x) watch :: TMVar Repo -> FilePath -> G.RefName -> IO () watch repoT root ref = do -- cgit v1.2.3