github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Rename fromGHCSrcLoc to fromSrcLoc.

Browse Source
This commit is contained in:
Rob Rix 2019-10-10 17:40:42 -04:00
parent b2b88f24b5
commit e177ea7eab
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
semantic-core/src/Core/Loc.hs
View File

@ -13,8 +13,8 @@ here = stackLoc callStack
stackLoc :: CallStack -> Maybe (Path.AbsRelFile, Span)
stackLoc cs = case getCallStack cs of
(_, srcLoc):_ -> Just (fromGHCSrcLoc srcLoc)
(_, srcLoc):_ -> Just (fromSrcLoc srcLoc)
_ -> Nothing
fromGHCSrcLoc :: SrcLoc -> (Path.AbsRelFile, Span)
fromGHCSrcLoc SrcLoc{..} = (Path.absRel srcLocFile, Span (Pos srcLocStartLine srcLocStartCol) (Pos srcLocEndLine srcLocEndCol))
fromSrcLoc :: SrcLoc -> (Path.AbsRelFile, Span)
fromSrcLoc SrcLoc{..} = (Path.absRel srcLocFile, Span (Pos srcLocStartLine srcLocStartCol) (Pos srcLocEndLine srcLocEndCol))