got rid of almost all 'return ()'
This commit is contained in:
parent
9c7b3dce9e
commit
045b051ec1
9 changed files with 30 additions and 50 deletions
3
Annex.hs
3
Annex.hs
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue