fromEvalResult :: EvalResult a -> IO a
fromEvalResult (EvalException bytes e) = do
  printBytes bytes
  throwIO (fromSerializableException e)
fromEvalResult :: EvalResult a -> IO a
fromEvalResult (EvalException bytes e) = do
  printBytes bytes
  throwIO (fromSerializableException e)
fromEvalResult (EvalException bytes e) = do
  printBytes bytes
  throwIO (fromSerializableException e)