TheDude
/
echidna
mirror of https://github.com/crytic/echidna
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
make addsolidity's type way more useful
pull/114/head
JP Smith 6 years ago committed by GitHub
parent dd6589f37c 4ba0b11565
commit 1c74a11845
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 4
      lib/Echidna/Solidity.hs

4
lib/Echidna/Solidity.hs
Unescape View File

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

Write Preview
Loading…
Cancel
Save