Actually pass the implicit callstack to have the right call site in scope
commitd23cdeea62a449e8809724d60ac84f1eafc7b3b2
authorAlfredo Di Napoli <alfredo.dinapoli@gmail.com>
dateMon 13 Feb 2017, 17:23 (10 years ago)
parentd095b59
katip/src/Katip/Core.hs+4
@@ -826,7 +826,11 @@ logT = [| \ a ns sev msg -> logItem a ns (Just $(getLocTH)) sev msg |]
826826-- `logT` for maximum compatibility.
827827--
828828-- @logLoc obj mempty InfoS "Hello world"@
829+#if MIN_VERSION_base(4, 8, 0)
830+logLoc :: (Applicative m, LogItem a, Katip m, ?loc :: CallStack)
831+#else
829832logLoc :: (Applicative m, LogItem a, Katip m)
833+#endif
830834 => a
831835 -> Namespace
832836 -> Severity