import: also show a message when nothing was imported
This commit is contained in:
		
							parent
							
								
									dfc0095fed
								
							
						
					
					
						commit
						35a90004ca
					
				@ -36,7 +36,8 @@ importcmd opts@CliOpts{rawopts_=rawopts,inputopts_=iopts} j = do
 | 
				
			|||||||
        Left e     -> error' e
 | 
					        Left e     -> error' e
 | 
				
			||||||
        Right newj ->
 | 
					        Right newj ->
 | 
				
			||||||
          case sortOn tdate $ jtxns newj of
 | 
					          case sortOn tdate $ jtxns newj of
 | 
				
			||||||
            [] -> return ()
 | 
					            [] -> do
 | 
				
			||||||
 | 
					              printf "; no new transactions found.\n\n"
 | 
				
			||||||
            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