From 80ff91aa5d6cda6adc1c97dc39b950dd7daed9d5 Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 11:09:30 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@50 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/State.hs | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 HsBot/State.hs (limited to 'HsBot/State.hs') diff --git a/HsBot/State.hs b/HsBot/State.hs deleted file mode 100644 index 9d1fa87..0000000 --- a/HsBot/State.hs +++ /dev/null @@ -1,32 +0,0 @@ -module HsBot.State where - -import qualified Data.Map as M - -import List -import HsBot.IRC.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') - -- cgit v1.2.3