stats: fix number of accounts
This commit is contained in:
		
							parent
							
								
									0734da2bbe
								
							
						
					
					
						commit
						812a800303
					
				@ -16,7 +16,7 @@ import System.IO.UTF8
 | 
			
		||||
stats :: [Opt] -> [String] -> Ledger -> IO ()
 | 
			
		||||
stats opts args l = do
 | 
			
		||||
  today <- getCurrentDay
 | 
			
		||||
  putStr $ showStats opts args l today
 | 
			
		||||
  putStr $ showStats opts args (cacheLedger' l) today
 | 
			
		||||
 | 
			
		||||
showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 | 
			
		||||
showStats _ _ l today =
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user