pull/4/head
ggrieco-tob 7 years ago
parent 4d5888b80b
commit 1cd88de56c
  1. 2
      lib/Echidna/Exec.hs

@ -49,7 +49,7 @@ fuzz l n ts v p = do
where run cs = p $ execState (forM_ cs $ \c -> (cleanUp >> (execCall c))) v
cleanUp :: MonadState VM m => m ()
cleanUp = sequence_ [ result .= Nothing
cleanUp = sequence_ [ result .= Nothing
, state . pc .= 0
]

Loading…
Cancel
Save