vty: build with latest libs
This commit is contained in:
		
							parent
							
								
									96aa9bfc76
								
							
						
					
					
						commit
						3885b30681
					
				@ -7,17 +7,17 @@ Released under GPL version 3 or later.
 | 
				
			|||||||
 | 
					
 | 
				
			||||||
module Hledger.Vty.Main where
 | 
					module Hledger.Vty.Main where
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					import Control.Monad
 | 
				
			||||||
 | 
					import Data.List
 | 
				
			||||||
 | 
					import Data.Maybe
 | 
				
			||||||
 | 
					import Data.Time.LocalTime
 | 
				
			||||||
import Graphics.Vty
 | 
					import Graphics.Vty
 | 
				
			||||||
import Safe (headDef)
 | 
					import Safe (headDef)
 | 
				
			||||||
import System.Console.GetOpt
 | 
					import System.Console.GetOpt
 | 
				
			||||||
 | 
					
 | 
				
			||||||
import Hledger.Cli.Balance
 | 
					import Hledger.Cli
 | 
				
			||||||
import Hledger.Cli.Options
 | 
					 | 
				
			||||||
import Hledger.Cli.Print
 | 
					 | 
				
			||||||
import Hledger.Cli.Register
 | 
					 | 
				
			||||||
import Hledger.Cli.Utils (withJournalDo)
 | 
					 | 
				
			||||||
import Hledger.Cli.Version (progversionstr, binaryfilename)
 | 
					 | 
				
			||||||
import Hledger.Data
 | 
					import Hledger.Data
 | 
				
			||||||
 | 
					import Hledger.Utils
 | 
				
			||||||
import Prelude hiding (putStr, putStrLn)
 | 
					import Prelude hiding (putStr, putStrLn)
 | 
				
			||||||
import Hledger.Utils.UTF8 (putStr, putStrLn)
 | 
					import Hledger.Utils.UTF8 (putStr, putStrLn)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
@ -272,7 +272,7 @@ updateData t a@AppState{aopts=opts,ajournal=j} =
 | 
				
			|||||||
    case screen a of
 | 
					    case screen a of
 | 
				
			||||||
      BalanceScreen  -> a{abuf=lines $ balanceReportAsText opts $ balanceReport opts fspec j}
 | 
					      BalanceScreen  -> a{abuf=lines $ balanceReportAsText opts $ balanceReport opts fspec j}
 | 
				
			||||||
      RegisterScreen -> a{abuf=lines $ registerReportAsText opts $ registerReport opts fspec j}
 | 
					      RegisterScreen -> a{abuf=lines $ registerReportAsText opts $ registerReport opts fspec j}
 | 
				
			||||||
      PrintScreen    -> a{abuf=lines $ showTransactions fspec j}
 | 
					      PrintScreen    -> a{abuf=lines $ showTransactions opts fspec j}
 | 
				
			||||||
    where fspec = optsToFilterSpec opts (currentArgs a) t
 | 
					    where fspec = optsToFilterSpec opts (currentArgs a) t
 | 
				
			||||||
 | 
					
 | 
				
			||||||
backout :: LocalTime -> AppState -> AppState
 | 
					backout :: LocalTime -> AppState -> AppState
 | 
				
			||||||
 | 
				
			|||||||
@ -47,6 +47,6 @@ executable hledger-vty
 | 
				
			|||||||
                 -- ,regexpr >= 0.5.1
 | 
					                 -- ,regexpr >= 0.5.1
 | 
				
			||||||
                 ,safe >= 0.2
 | 
					                 ,safe >= 0.2
 | 
				
			||||||
                 -- ,split == 0.1.*
 | 
					                 -- ,split == 0.1.*
 | 
				
			||||||
                 -- ,time
 | 
					                 ,time
 | 
				
			||||||
                 -- ,utf8-string >= 0.3.5 && < 0.4
 | 
					                 -- ,utf8-string >= 0.3.5 && < 0.4
 | 
				
			||||||
                 ,vty >= 4.6.0.1 && < 4.7
 | 
					                 ,vty >= 4.6.0.1 && < 4.8
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user