github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Rename the line/column lenses to line_/column_.

Browse Source
This commit is contained in:
Rob Rix 2019-09-20 16:31:04 -04:00
parent bb204715a1
commit 64ef37e790
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
semantic-source/src/Source/Span.hs
View File

@ -6,8 +6,8 @@ module Source.Span
( Span(..)
, spanFromSrcLoc
, Pos(..)
, line
, column
, line_
, column_
, HasSpan(..)
) where
@ -77,9 +77,9 @@ instance Lower Pos where
lowerBound = Pos 1 1
line, column :: Lens' Pos Int
line = lens posLine (\p l -> p { posLine = l })
column = lens posColumn (\p l -> p { posColumn = l })
line_, column_ :: Lens' Pos Int
line_ = lens posLine (\p l -> p { posLine = l })
column_ = lens posColumn (\p l -> p { posColumn = l })
-- | "Classy-fields" interface for data types that have spans.