replace unreached return with M.fail

pull/333/head
Will Song 5 years ago
parent b7795097d7
commit 34e97685b9
  1. 2
      lib/Echidna/RPC.hs

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

Loading…
Cancel
Save