Fix bad pretty printer for `MichelsonFailureWithStack` type
Description
At this moment if I pretty print a value with the MichelsonFailureWithStack
type I'll get a weird message.
Steps to reproduce
- Make a
MichelsonFailureWithStack
value (e.g.MichelsonFailureWithStack (MichelsonExt err) (ErrorSrcPos $ SrcPos (Pos 0) (Pos 0))
). - Use
build val
Prerequisites (if needed):
Expected behaviour
err occurred at line 1 char 1
Actual behaviour
err at Error occurred on line 1 char 1
Environment
- OS Ubuntu 20.04.4
- master (175682ce)