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