@@ -1042,8 +1042,8 @@ instance OVERLAPPABLE_ (Selector s, GFromJSON arity a) =>
10421042
10431043instance INCOHERENT_ (Selector s, FromJSON a) =>
10441044 FromRecord arity (S1 s (K1 i (Maybe a))) where
1045− parseRecord _ _ (Just lab) obj = (M1 . K1) <$> obj .:? lab
1046− parseRecord opts _ Nothing obj = (M1 . K1) <$> obj .:? pack label
1045+ parseRecord _ _ (Just lab) obj = M1 . K1 <$> obj .:? lab
1046+ parseRecord opts _ Nothing obj = M1 . K1 <$> obj .:? pack label
10471047 where
10481048 label = fieldLabelModifier opts $
10491049 selName (undefined :: t s (K1 i (Maybe a)) p)