diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
commit | 045b051ec10023afc2e62895032527d5b5130495 (patch) | |
tree | a438d96566ccebbccf5c1ec1d35e43d2c5097578 /Annex.hs | |
parent | 9c7b3dce9e8f964ed60dd45bca580a46ff8a5ed5 (diff) |
got rid of almost all 'return ()'
Diffstat (limited to 'Annex.hs')
-rw-r--r-- | Annex.hs | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -61,7 +61,6 @@ gitRepoChange :: Git.Repo -> Annex () gitRepoChange r = do state <- get put state { Internals.repo = r } - return () {- Returns the backends being used. -} backends :: Annex [Backend] @@ -74,7 +73,6 @@ backendsChange :: [Backend] -> Annex () backendsChange b = do state <- get put state { Internals.backends = b } - return () {- Returns the full list of supported backends. -} supportedBackends :: Annex [Backend] @@ -95,7 +93,6 @@ flagChange :: FlagName -> Flag -> Annex () flagChange name val = do state <- get put state { Internals.flags = M.insert name val $ Internals.flags state } - return () {- Gets the value of a String flag (or "" if there is no such String flag) -} flagGet :: FlagName -> Annex String |