github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

🔥 emptySpan.

Browse Source
This commit is contained in:
Rob Rix 2019-10-07 17:19:16 -04:00
parent 36eb0df4a9
commit a93327f46d
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,6 @@
module Data.Loc
( Loc(..)
, interactive
, emptySpan
, here
, stackLoc
, FailWithLocC(..)
@ -26,10 +25,7 @@ data Loc = Loc
deriving (Eq, Ord, Show)
interactive :: Loc
interactive = Loc "<interactive>" emptySpan
emptySpan :: Span
emptySpan = Span (Pos 1 1) (Pos 1 1)
interactive = Loc "<interactive>" (Span (Pos 1 1) (Pos 1 1))
here :: HasCallStack => Maybe Loc