mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-12 19:08:34 +03:00
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
|
||||
|
||||
import Control.Monad
|
||||
import Data.List
|
||||
import Data.Maybe
|
||||
import Data.Time.LocalTime
|
||||
import Graphics.Vty
|
||||
import Safe (headDef)
|
||||
import System.Console.GetOpt
|
||||
|
||||
import Hledger.Cli.Balance
|
||||
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.Cli
|
||||
import Hledger.Data
|
||||
import Hledger.Utils
|
||||
import Prelude hiding (putStr, putStrLn)
|
||||
import Hledger.Utils.UTF8 (putStr, putStrLn)
|
||||
|
||||
@ -272,7 +272,7 @@ updateData t a@AppState{aopts=opts,ajournal=j} =
|
||||
case screen a of
|
||||
BalanceScreen -> a{abuf=lines $ balanceReportAsText opts $ balanceReport 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
|
||||
|
||||
backout :: LocalTime -> AppState -> AppState
|
||||
|
@ -47,6 +47,6 @@ executable hledger-vty
|
||||
-- ,regexpr >= 0.5.1
|
||||
,safe >= 0.2
|
||||
-- ,split == 0.1.*
|
||||
-- ,time
|
||||
,time
|
||||
-- ,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