git.iko.soy/elk
on master help sign in
Switch from two getPositions to one addLocation in Type.variant
d4f01daEvan Czaplicki
compiler/src/Parse/Type.hs+3−8
compare with master
unifiedsplit
@@ -197,12 +197,7 @@ chompField =
197
197
198variant :: Space.Parser E.CustomType (A.Located Name.Name, [Src.Type])
198variant :: Space.Parser E.CustomType (A.Located Name.Name, [Src.Type])
199variant =
199variant =
200− do start <- getPosition
201− name <- Var.upper E.CT_Variant
200+ do name@(A.At (A.Region _ nameEnd) _) <- addLocation (Var.upper E.CT_Variant)
202− nameEnd <- getPosition
203 Space.chomp E.CT_Space
201 Space.chomp E.CT_Space
204− (args, end) <- specialize E.CT_Type (chompArgs [] nameEnd)
202+ (args, end) <- specialize E.CT_VariantArg (chompArgs [] nameEnd)
205− return
203+ return ( (name, args), end )
206− ( (A.at start nameEnd name, args)
207− , end
208− )