git.iko.soy/typeable/openapi3
on master help sign in
fixed: GToSchema: infinite call: single constructor and recur
93d7dffncaq
src/Data/OpenApi/Internal/Schema.hs+1−1
compare with master
unifiedsplit
@@ -945,7 +945,7 @@ instance (Selector s, GToSchema f, GToSchema (S1 s f)) => GToSchema (C1 c (S1 s
945 case schema ^. items of
945 case schema ^. items of
946 Just (OpenApiItemsArray [_]) -> fieldSchema
946 Just (OpenApiItemsArray [_]) -> fieldSchema
947 _ -> do
947 _ -> do
948− declare defs
948+ NamedSchema _ schema <- recordSchema
949 return (unnamed schema)
949 return (unnamed schema)
950 where
950 where
951 (defs, NamedSchema _ schema) = runDeclare recordSchema mempty
951 (defs, NamedSchema _ schema) = runDeclare recordSchema mempty