mirror of
https://github.com/github/semantic.git
synced 2024-12-28 17:32:05 +03:00
Freeze the call stack in unError.
This commit is contained in:
parent
367c16a0cd
commit
9d044c51f7
@ -79,5 +79,5 @@ instance Show1 Error where liftShowsPrec = genericLiftShowsPrec
|
||||
errorSyntax :: Error.Error String -> [a] -> Error a
|
||||
errorSyntax Error.Error{..} = Error (getCallStack callStack) errorExpected errorActual
|
||||
|
||||
unError :: HasCallStack => Span -> Error a -> Error.Error String
|
||||
unError span Error{..} = Error.withCallStack (fromCallSiteList errorCallStack) (Error.Error span errorExpected errorActual)
|
||||
unError :: Span -> Error a -> Error.Error String
|
||||
unError span Error{..} = Error.withCallStack (fromCallSiteList errorCallStack) (withFrozenCallStack (Error.Error span errorExpected errorActual))
|
||||
|
Loading…
Reference in New Issue
Block a user