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 :: [Opt] -> [String] -> Ledger -> IO ()
 | 
				
			||||||
stats opts args l = do
 | 
					stats opts args l = do
 | 
				
			||||||
  today <- getCurrentDay
 | 
					  today <- getCurrentDay
 | 
				
			||||||
  putStr $ showStats opts args l today
 | 
					  putStr $ showStats opts args (cacheLedger' l) today
 | 
				
			||||||
 | 
					
 | 
				
			||||||
showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 | 
					showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 | 
				
			||||||
showStats _ _ l today =
 | 
					showStats _ _ l today =
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user