'Protolude.Error.error' produces call stacks (#102)

Calling `Protolude.Error.error` will now include the call stack in the
`ErrorCall` that is raised. Before this was not the case because we used
the wrong implicit variable.
This commit is contained in:
Thomas Scholtes
2019-04-10 15:38:14 +01:00
committed by Stephen Diehl
parent 3add75ac4d
commit 7491e92f2a
+1 -1
View File
@@ -27,7 +27,7 @@ import GHC.Exception (errorCallWithCallStackException)
{-# WARNING error "'error' remains in code" #-}
error :: forall (r :: RuntimeRep) . forall (a :: TYPE r) . HasCallStack => Text -> a
error s = raise# (errorCallWithCallStackException (unpack s) ?callstack)
error s = raise# (errorCallWithCallStackException (unpack s) ?callStack)
#elif MIN_VERSION_base(4,7,0)
-- Basic Call Stack with callsite.