slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

happs command cleanup

Browse Source
This commit is contained in:
Simon Michael 2009-01-20 04:28:42 +00:00
parent 1fc9db3af5
commit 7d80cffb45
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
WebCommand.hs
View File

@ -28,18 +28,6 @@ import RegisterCommand
import PrintCommand import PrintCommand
-- | The application state when running the ui command.
data AppState = AppState {
aw :: Int -- ^ window width
,ah :: Int -- ^ window height
,amsg :: String -- ^ status message
,aopts :: [Opt] -- ^ command-line opts
,aargs :: [String] -- ^ command-line args
,aledger :: Ledger -- ^ parsed ledger
,abuf :: [String] -- ^ lines of the current buffered view
-- ^ never null, head is current location
} deriving (Show)
tcpport = 5000 tcpport = 5000
web :: [Opt] -> [String] -> Ledger -> IO () web :: [Opt] -> [String] -> Ledger -> IO ()