@@ -1154,7 +1154,7 @@ parseNonAllNullarySum p@(tname :* opts :* _) =
11541154 case sumEncoding opts of
11551155 TaggedObject{..} ->
11561156 withObject tname $ \obj -> do
1157− tag <- contextType tname . (contextTag tagKey cnames_) $ obj .: tagKey
1157+ tag <- contextType tname . contextTag tagKey cnames_ $ obj .: tagKey
11581158 fromMaybe (badTag tag <?> Key tagKey) $
11591159 parseFromTaggedObject (tag :* contentsFieldName :* p) obj
11601160 where