diff options
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 |