refactor some boilerplate

This commit is contained in:
Joey Hess 2011-05-15 02:02:46 -04:00
parent b400984ddf
commit 56bc3e95ca
31 changed files with 93 additions and 86 deletions

View file

@ -24,4 +24,4 @@ start = do
showStart "upgrade" ""
r <- upgrade
checkVersion
return $ Just $ return $ Just $ return r
next $ next $ return r