@@ -316,10 +316,7 @@ emptyModule (ModuleName.Canonical _ name) overview =
316316-- PARSE OVERVIEW
317317
318318
319−type LName = A.Located N.Name
320−
321−
322−parseOverview :: R.Region -> B.ByteString -> Result.Result i w Error.Error [LName]
319+parseOverview :: R.Region -> B.ByteString -> Result.Result i w Error.Error [A.Located N.Name]
323320parseOverview (R.Region (R.Position row col) _) overview =
324321 case P.runAt row (col + 3) (chompOverview []) overview of
325322 Left err ->
@@ -329,7 +326,7 @@ parseOverview (R.Region (R.Position row col) _) overview =
329326 Result.ok names
330327
331328
332−chompOverview :: [LName] -> Parser [LName]
329+chompOverview :: [A.Located N.Name] -> Parser [A.Located N.Name]
333330chompOverview names =
334331 do isDocs <- W.chompUntilDocs
335332 if isDocs
@@ -337,7 +334,7 @@ chompOverview names =
337334 else return names
338335
339336
340−chompOverviewHelp :: [LName] -> Parser [LName]
337+chompOverviewHelp :: [A.Located N.Name] -> Parser [A.Located N.Name]
341338chompOverviewHelp names =
342339 do pos <- P.getPosition
343340 (W.SPos spos) <- W.whitespace
@@ -346,7 +343,7 @@ chompOverviewHelp names =
346343 else chompOverview =<< chompDocs names
347344
348345
349−chompDocs :: [LName] -> Parser [LName]
346+chompDocs :: [A.Located N.Name] -> Parser [A.Located N.Name]
350347chompDocs names =
351348 do name <- P.addLocation (P.oneOf [ Var.lower, Var.upper, chompBinop ])
352349 spos <- W.whitespace
@@ -379,7 +376,7 @@ type Dups =
379376 Map.Map N.Name (OneOrMore.OneOrMore R.Region)
380377
381378
382−checkNames :: Map.Map N.Name (A.Located Can.Export) -> [LName] -> Result i w ()
379+checkNames :: Map.Map N.Name (A.Located Can.Export) -> [A.Located N.Name] -> Result i w ()
383380checkNames exports names =
384381 do docs <- Map.traverseWithKey isUnique (List.foldl' addName Map.empty names)
385382 let overlap = Map.size (Map.intersection docs exports)
@@ -391,7 +388,7 @@ checkNames exports names =
391388 Result.ok ()
392389
393390
394−addName :: Dups -> LName -> Dups
391+addName :: Dups -> A.Located N.Name -> Dups
395392addName dict (A.At region name) =
396393 Map.insertWith OneOrMore.more name (OneOrMore.one region) dict
397394