@@ -232,11 +232,14 @@ cons tl@(A.At (R.Region _ end) _) hd@(A.At (R.Region start _) _) =
232exprTerm :: SParser Src.Pattern
232exprTerm :: SParser Src.Pattern
233exprTerm =
233exprTerm =
235− [ do start <- getPosition
236+ do start <- getPosition
236 pair <- Var.foreignUpper
237 pair <- Var.foreignUpper
237 exprTermHelp start pair []
238 exprTermHelp start pair []
240+ do t@(A.At (R.Region _ end) _) <- term
239− , (,,) <$> term <*> getPosition <*> whitespace
241+ pos <- whitespace
242+ return (t, end, pos)