|
|
@ -112,7 +112,7 @@ execEthenoTxs ts addr et = do |
|
|
|
g <- view (hasLens . propGas) |
|
|
|
g <- view (hasLens . propGas) |
|
|
|
case (res, et) of |
|
|
|
case (res, et) of |
|
|
|
(Reversion, _) -> throwM $ EthenoException "Encountered reversion while setting up Etheno transactions" |
|
|
|
(Reversion, _) -> throwM $ EthenoException "Encountered reversion while setting up Etheno transactions" |
|
|
|
(VMFailure x, _) -> vmExcept x >> return addr |
|
|
|
(VMFailure x, _) -> vmExcept x >> M.fail "impossible" |
|
|
|
(VMSuccess bc, |
|
|
|
(VMSuccess bc, |
|
|
|
ContractCreated _ ca _ _ _ _) -> do |
|
|
|
ContractCreated _ ca _ _ _ _) -> do |
|
|
|
hasLens . env . contracts . at ca . _Just . contractcode .= InitCode "" |
|
|
|
hasLens . env . contracts . at ca . _Just . contractcode .= InitCode "" |
|
|
|