stackbuilders/hapistrano
1
1
Fork 0
mirror of https://github.com/stackbuilders/hapistrano.git synced 2024-12-28 14:33:09 +03:00
Code Issues Projects Releases Wiki Activity

Another shadowed var fix

Browse Source
This commit is contained in:
Justin Leitgeb 2014-05-31 09:53:23 -05:00
parent 88b4640153
commit 8e487e3951
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.hs
View File

@ -178,9 +178,9 @@ oldReleases conf rs = map mergePath toDelete
------------------------------------------------------------------------------
cleanReleases :: RC (Maybe String)
cleanReleases = do
state <- get
st <- get
conf <- use config
allReleases <- liftIO $ runEitherT $ evalStateT releases state
allReleases <- liftIO $ runEitherT $ evalStateT releases st
case allReleases of
Left err -> lift $ left err