From cc67aeba8da2c8eb115f0cbe7f55512661e42840 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 2 Jun 2016 18:13:07 -0700 Subject: [PATCH] ui: fix some warnings (#354) --- hledger-ui/Hledger/UI/TransactionScreen.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger-ui/Hledger/UI/TransactionScreen.hs b/hledger-ui/Hledger/UI/TransactionScreen.hs index 8482a325e..56514f5fb 100644 --- a/hledger-ui/Hledger/UI/TransactionScreen.hs +++ b/hledger-ui/Hledger/UI/TransactionScreen.hs @@ -9,7 +9,7 @@ where -- import Lens.Micro ((^.)) import Control.Monad.IO.Class (liftIO) -import Data.List +-- import Data.List -- import Data.List.Split (splitOn) -- import Data.Ord import Data.Monoid @@ -22,7 +22,7 @@ import Graphics.Vty as Vty -- import Safe (headDef, lastDef) import Brick import Brick.Widgets.List (listMoveTo) -import Brick.Widgets.Border (borderAttr) +-- import Brick.Widgets.Border (borderAttr) -- import Brick.Widgets.Border.Style -- import Brick.Widgets.Center -- import Text.Printf @@ -51,7 +51,7 @@ initTransactionScreen _d st@AppState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=_ initTransactionScreen _ _ = error "init function called with wrong screen type, should not happen" drawTransactionScreen :: AppState -> [Widget] -drawTransactionScreen AppState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=ropts}} +drawTransactionScreen AppState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=_ropts}} ,aScreen=TransactionScreen{tsState=((i,t),nts,acct)}} = [ui] where -- datedesc = show (tdate t) ++ " " ++ tdescription t