diff options
author | Joey Hess <joey@kitenet.net> | 2014-01-21 16:08:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-01-21 16:08:59 -0400 |
commit | d5f7fb27aad3e2e9c4bebb9ccd5577af8deb25c7 (patch) | |
tree | 838837e3112942fcf0f82cfc7f68e62a6f4e7a6e /Command/NumCopies.hs | |
parent | 9a8709f064c7608859b3155a752093b29cd8ab98 (diff) |
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.
Diffstat (limited to 'Command/NumCopies.hs')
-rw-r--r-- | Command/NumCopies.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/NumCopies.hs b/Command/NumCopies.hs index 804faff58..51bde2e68 100644 --- a/Command/NumCopies.hs +++ b/Command/NumCopies.hs @@ -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 |