Commits

basvandijk committed 7975354

Unified two GFromProduct instances

  • Participants
  • Parent commits e3ef511

Comments (0)

Files changed (1)

File Data/Aeson/Types/Internal.hs

         where
           (arrL, arrR) = V.splitAt (V.length arr `div` 2) arr
 
-instance (GFromJSON a) => GFromProduct (S1 NoSelector a) where
+instance (GFromJSON a) => GFromProduct a where
     gParseProduct ((!? 0) -> Just v) = gParseJSON v
     gParseProduct _ = fail "Array to small"
 
-instance GFromProduct (M1 i c f) where gParseProduct = undefined
-
 --------------------------------------------------------------------------------
 
 class GObject f where