@@ -290,10 +290,8 @@ parseJSON_generic j = generic
290 decodeArgs c0 = go (numConstrArgs (resType generic) c0) c0
290 decodeArgs c0 = go (numConstrArgs (resType generic) c0) c0
291 (constrFields c0)
291 (constrFields c0)
293− go 0 c _ Null = construct c [] -- nullary constructor
294 go 1 c [] jd = construct c [jd] -- unary constructor
293 go 1 c [] jd = construct c [jd] -- unary constructor
295− go n c [] (Array js)
296− | n > 1 = construct c (V.toList js) -- no field names
294+ go _ c [] (Array js) = construct c (V.toList js) -- no field names
297 -- FIXME? We could allow reading an array into a constructor
295 -- FIXME? We could allow reading an array into a constructor
298 -- with field names.
296 -- with field names.
299 go _ c fs@(_:_) (Object o) = selectFields o fs >>=
297 go _ c fs@(_:_) (Object o) = selectFields o fs >>=