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

Emacs misfire.

Browse Source
This commit is contained in:
Patrick Thomson 2020-02-11 12:53:56 -05:00
parent f722cb0897
commit 27829d1131
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-analysis/src/Analysis/File.hs
View File

@ -20,7 +20,7 @@ data File a = File
, fileBody :: !a
}
deriving (Eq, Foldable, Functor, Ord, Show, Traversable)
q
fromBody :: HasCallStack => a -> File a
fromBody body = File (Path.absRel (srcLocFile srcLoc)) (spanFromSrcLoc srcLoc) body where
srcLoc = snd (fromJust (listToMaybe (getCallStack callStack)))