jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Protolude/Error.hs
+1 -1
View File
@@ -27,7 +27,7 @@ import GHC.Exception (errorCallWithCallStackException)
{-# WARNING error "'error' remains in code" #-} {-# WARNING error "'error' remains in code" #-}
error :: forall (r :: RuntimeRep) . forall (a :: TYPE r) . HasCallStack => Text -> a 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) #elif MIN_VERSION_base(4,7,0)
-- Basic Call Stack with callsite. -- Basic Call Stack with callsite.