simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-12 19:08:34 +03:00
Code Issues Projects Releases Wiki Activity

ui: fix some warnings (#354)

Browse Source
This commit is contained in:
Simon Michael 2016-06-02 18:13:07 -07:00
parent 7c8d7e9820
commit cc67aeba8d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-ui/Hledger/UI/TransactionScreen.hs
View File

@ -9,7 +9,7 @@ where
-- import Lens.Micro ((^.)) -- import Lens.Micro ((^.))
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Data.List -- import Data.List
-- import Data.List.Split (splitOn) -- import Data.List.Split (splitOn)
-- import Data.Ord -- import Data.Ord
import Data.Monoid import Data.Monoid
@ -22,7 +22,7 @@ import Graphics.Vty as Vty
-- import Safe (headDef, lastDef) -- import Safe (headDef, lastDef)
import Brick import Brick
import Brick.Widgets.List (listMoveTo) import Brick.Widgets.List (listMoveTo)
import Brick.Widgets.Border (borderAttr) -- import Brick.Widgets.Border (borderAttr)
-- import Brick.Widgets.Border.Style -- import Brick.Widgets.Border.Style
-- import Brick.Widgets.Center -- import Brick.Widgets.Center
-- import Text.Printf -- 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" initTransactionScreen _ _ = error "init function called with wrong screen type, should not happen"
drawTransactionScreen :: AppState -> [Widget] 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] ,aScreen=TransactionScreen{tsState=((i,t),nts,acct)}} = [ui]
where where
-- datedesc = show (tdate t) ++ " " ++ tdescription t -- datedesc = show (tdate t) ++ " " ++ tdescription t