From e177ea7eab66b316845f6aa9f479e14deae83951 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 10 Oct 2019 17:40:42 -0400 Subject: [PATCH] Rename fromGHCSrcLoc to fromSrcLoc. --- semantic-core/src/Core/Loc.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/semantic-core/src/Core/Loc.hs b/semantic-core/src/Core/Loc.hs index f2d8fe740..47184ad2c 100644 --- a/semantic-core/src/Core/Loc.hs +++ b/semantic-core/src/Core/Loc.hs @@ -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))