github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

Freeze the call stack in unError.

Browse Source
This commit is contained in:
Rob Rix 2017-08-06 15:58:06 -04:00
parent 367c16a0cd
commit 9d044c51f7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Syntax.hs
View File

@ -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))