From 27829d1131e31c63618897855fcb04defe484962 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Tue, 11 Feb 2020 12:53:56 -0500 Subject: [PATCH] Emacs misfire. --- semantic-analysis/src/Analysis/File.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/semantic-analysis/src/Analysis/File.hs b/semantic-analysis/src/Analysis/File.hs index 68f96251d..cfaeaac9e 100644 --- a/semantic-analysis/src/Analysis/File.hs +++ b/semantic-analysis/src/Analysis/File.hs @@ -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)))