github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 11:02:26 +03:00
Code Issues Projects Releases Wiki Activity

Slightly more elegant expression of mark

Browse Source
This commit is contained in:
Timothy Clem 2018-09-26 16:55:02 -05:00
parent 44b8e9249a
commit f7e721a3a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/History.hs
View File

@ -23,7 +23,7 @@ mark :: Functor f
=> (Range -> History)
-> f Location
-> f History
mark f = fmap (\Location{..} -> f locationByteRange)
mark f = fmap (f . locationByteRange)
-- | Change the 'History' annotation on a 'Term'.
remark :: Functor f