@@ -1162,7 +1162,7 @@ parseNonAllNullarySum p@(tname :* opts :* _) =
11621162 badTag tag = failWith_ $ \cnames ->
11631163 "expected tag field to be one of " ++ show cnames ++
11641164 ", but found tag " ++ show tag
1165− cnames_ = unTagged2 (constructorTags opts :: Tagged2 f [String])
1165+ cnames_ = unTagged2 (constructorTags (constructorTagModifier opts) :: Tagged2 f [String])
11661166 --cname_ = conName (undefined :: M1 _i c _f _p)
11671167 -- forall f a. ConstructorNames f
11681168