github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Use Record WildCards for SourceSpan

Browse Source
This commit is contained in:
Rick Winfrey 2016-11-04 09:49:12 -05:00
parent 7398e1cf4e
commit df2fbfe060
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SourceSpan.hs
View File

@ -28,8 +28,8 @@ data SourcePos = SourcePos
} deriving (Show, Read, Eq, Ord, Generic, Hashable)
displaySourcePos :: SourcePos -> Text
displaySourcePos sp =
"line " <> show (line sp) <> ", column " <> show (column sp)
displaySourcePos SourcePos{..} =
"line " <> show line <> ", column " <> show column
instance A.ToJSON SourcePos where
toJSON SourcePos{..} =