@@ -1011,12 +1011,10 @@ instance (GFromProduct a, GFromProduct b) => GFromProduct (a :*: b) where
10111011 where
10121012 (arrL, arrR) = V.splitAt (V.length arr `div` 2) arr
10131013
1014−instance (GFromJSON a) => GFromProduct (S1 NoSelector a) where
1014+instance (GFromJSON a) => GFromProduct a where
10151015 gParseProduct ((!? 0) -> Just v) = gParseJSON v
10161016 gParseProduct _ = fail "Array to small"
10171017
1018−instance GFromProduct (M1 i c f) where gParseProduct = undefined
1019−
10201018--------------------------------------------------------------------------------
10211019
10221020class GObject f where