From 7d80cffb45df4ef1b7acdf8f207523ffbd4ce68b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 20 Jan 2009 04:28:42 +0000
Subject: [PATCH] happs command cleanup

---
 WebCommand.hs | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/WebCommand.hs b/WebCommand.hs
index b9cb5f2ef..b9c8fb0b8 100644
--- a/WebCommand.hs
+++ b/WebCommand.hs
@@ -28,18 +28,6 @@ import RegisterCommand
 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
 
 web :: [Opt] -> [String] -> Ledger -> IO ()