diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-10-11 20:18:51 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-10-11 20:18:51 +0200 |
| commit | 07a2f177f440526a374ef3844a1c37ba38939861 (patch) | |
| tree | 38ef16d91c99a1996fc830556ab5af187b4115f7 /backend/app | |
| parent | ed1a03db7a9400049a42ce241cc260ec3e14352a (diff) | |
support references
Diffstat (limited to 'backend/app')
| -rw-r--r-- | backend/app/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |