From 64ef37e790588fb4ce79b8a79643c8526e306594 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 20 Sep 2019 16:31:04 -0400 Subject: [PATCH] Rename the line/column lenses to line_/column_. --- semantic-source/src/Source/Span.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/semantic-source/src/Source/Span.hs b/semantic-source/src/Source/Span.hs index c71f54040..214792326 100644 --- a/semantic-source/src/Source/Span.hs +++ b/semantic-source/src/Source/Span.hs @@ -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.