Merge pull request #112 from trailofbits/dev-addsolidity-type

make addsolidity's type way more useful
pull/114/head
JP Smith 6 years ago committed by GitHub
commit 1c74a11845
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
  1. 4
      lib/Echidna/Solidity.hs

@ -126,5 +126,5 @@ currentContract :: MonadThrow m => VM -> m Contract
currentContract v = let a = v ^. state . contract in
maybe (throwM $ BadAddr a) pure . Map.lookup a $ v ^. env . contracts
addSolidity :: (MonadIO m, MonadReader Config m, MonadState VM m, MonadThrow m) => FilePath -> Maybe Text -> m ()
addSolidity f mc = insertContract =<< currentContract =<< view _1 <$> loadSolidity f mc
addSolidity :: (MonadIO m, MonadReader Config m, MonadThrow m, MonadState VM n) => FilePath -> Maybe Text -> m (n ())
addSolidity f mc = pure . insertContract =<< currentContract =<< view _1 <$> loadSolidity f mc

Loading…
Cancel
Save