on master help sign in
Merge pull request #45 from adinapoli/investigate-call-stack-propagation

Actually pass the implicit callstack to logLoc

commit240d37a8778d1e77aa94dfbfdaabd96a7b8911c4 authorMichael Xavier <michael@michaelxavier.net> dateMon 13 Feb 2017, 09:17 (10 years ago) parentd095b59d23cdee
1 file changed+4
katip/src/Katip/Core.hs+4
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