@@ -180,7 +180,8 @@ inlineSchemasWhen p defs = template %~ deref
180 case HashMap.lookup name defs of
180 case HashMap.lookup name defs of
181 Just schema -> Inline (inlineSchemasWhen p defs schema)
181 Just schema -> Inline (inlineSchemasWhen p defs schema)
182 Nothing -> r
182 Nothing -> r
183− deref r = r
183+ | otherwise = r
184+ deref (Inline schema) = Inline (inlineSchemasWhen p defs schema)
185-- | Inline any referenced schema if its name is in the given list.
186-- | Inline any referenced schema if its name is in the given list.