git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 0 insertions, 32 deletions

diff --git a/State.hs b/State.hs
deleted file mode 100644
index 8ab8e33..0000000
--- a/State.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-module State where
-
-import qualified Data.Map as M
-
-import List
-import User
-
-data State = State { 
-      currentChannel :: String, 
-      line :: String, 
-      users :: [User]
-   } deriving (Show, Read)
-
-stateNumUsers :: State -> Int
-stateNumUsers state = length $ users state
-
-stateSortedUsers :: State -> [User]
-stateSortedUsers state = sort $ users state
-
-stateLoad :: String -> IO State
-stateLoad databaseFile = do
-   file <- readFile databaseFile
-   return ( read file :: State )
-
-stateSave :: String -> State -> IO ()
-stateSave databaseFile = writeFile databaseFile . show
-
-stateSaveIO :: String -> IO State -> IO ()
-stateSaveIO databaseFile state = do
-   state' <- state
-   writeFile databaseFile (show state')
-