@@ -197,12 +197,7 @@ chompField =
197197
198198variant :: Space.Parser E.CustomType (A.Located Name.Name, [Src.Type])
199199variant =
200− do start <- getPosition
201− name <- Var.upper E.CT_Variant
202− nameEnd <- getPosition
200+ do name@(A.At (A.Region _ nameEnd) _) <- addLocation (Var.upper E.CT_Variant)
203201 Space.chomp E.CT_Space
204− (args, end) <- specialize E.CT_Type (chompArgs [] nameEnd)
205− return
206− ( (A.at start nameEnd name, args)
207− , end
208− )
202+ (args, end) <- specialize E.CT_VariantArg (chompArgs [] nameEnd)
203+ return ( (name, args), end )