Fix inlineSchemasWhen to recurse on Inline
commit11356d0db7c397f25e86a6d25d5bec062fc48a8e
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateSun 13 Dec 2015, 15:08 (11 years ago)
parent7b2677e
src/Data/Swagger/Internal/Schema.hs+2−1
@@ -180,7 +180,8 @@ inlineSchemasWhen p defs = template %~ deref
180180 case HashMap.lookup name defs of
181181 Just schema -> Inline (inlineSchemasWhen p defs schema)
182182 Nothing -> r
183− deref r = r
183+ | otherwise = r
184+ deref (Inline schema) = Inline (inlineSchemasWhen p defs schema)
184185
185186-- | Inline any referenced schema if its name is in the given list.
186187--