import: if there's nothing to import, be quiet
This commit is contained in:
		
							parent
							
								
									9acce249bb
								
							
						
					
					
						commit
						e120e261bd
					
				@ -49,7 +49,7 @@ importcmd opts@CliOpts{rawopts_=rawopts,inputopts_=iopts} j = do
 | 
				
			|||||||
        Left e     -> error' e 
 | 
					        Left e     -> error' e 
 | 
				
			||||||
        Right newj ->
 | 
					        Right newj ->
 | 
				
			||||||
          case sortBy (comparing tdate) $ jtxns newj of
 | 
					          case sortBy (comparing tdate) $ jtxns newj of
 | 
				
			||||||
            [] -> putStrLn "no new transactions"
 | 
					            [] -> return ()
 | 
				
			||||||
            newts | dryrun -> do
 | 
					            newts | dryrun -> do
 | 
				
			||||||
              printf "; would import %d new transactions:\n\n" (length newts)
 | 
					              printf "; would import %d new transactions:\n\n" (length newts)
 | 
				
			||||||
              -- TODO how to force output here ?
 | 
					              -- TODO how to force output here ?
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user