diff options
Diffstat (limited to 'backend')
| -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 |