github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Document setCharacterRange.

Browse Source
This commit is contained in:
Rob Rix 2016-03-21 13:35:33 -04:00
parent 8cae8fe049
commit 73f8cd56e0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Diff.hs
View File

@ -18,6 +18,7 @@ data Annotated a annotation f = Annotated { annotation :: !annotation, syntax ::
data Info = Info { characterRange :: !Range, categories :: !(Set Category) }
deriving (Eq, Show)
-- | Return a new Info by replacing its characterRange.
setCharacterRange :: Info -> Range -> Info
setCharacterRange info range = Info range (Diff.categories info)