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

🔥 Loc.

Browse Source
This commit is contained in:
Rob Rix 2019-10-10 13:56:22 -04:00
parent 20c6d12b03
commit 8880278961
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
semantic-core/src/Data/Loc.hs
View File

@ -1,7 +1,6 @@
{-# LANGUAGE RecordWildCards #-}
module Data.Loc
( Loc(..)
, Path(..)
( Path(..)
, here
, stackLoc
) where
@ -13,12 +12,6 @@ import Source.Span
newtype Path = Path { getPath :: Text }
deriving (Eq, Ord, Show)
data Loc = Loc
{ locPath :: !Path
, locSpan :: {-# UNPACK #-} !Span
}
deriving (Eq, Ord, Show)
here :: HasCallStack => Maybe (Path, Span)
here = stackLoc callStack