reorganize numcopies code (no behavior changes)
Move stuff into Logs.NumCopies. Add a NumCopies newtype. Better names for various serialization classes that are specific to one thing or another.
This commit is contained in:
parent
e38a21a768
commit
b40df4f0d0
20 changed files with 137 additions and 98 deletions
|
@ -39,7 +39,7 @@ startGet = next $ next $ do
|
|||
Annex.setOutput QuietOutput
|
||||
v <- getGlobalNumCopies
|
||||
case v of
|
||||
Just n -> liftIO $ putStrLn $ show n
|
||||
Just n -> liftIO $ putStrLn $ show $ fromNumCopies n
|
||||
Nothing -> do
|
||||
liftIO $ putStrLn $ "global numcopies is not set"
|
||||
old <- annexNumCopies <$> Annex.getGitConfig
|
||||
|
@ -52,5 +52,5 @@ startSet :: Int -> CommandStart
|
|||
startSet n = do
|
||||
showStart "numcopies" (show n)
|
||||
next $ next $ do
|
||||
setGlobalNumCopies n
|
||||
setGlobalNumCopies $ NumCopies n
|
||||
return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue