module Clckwrks.IrcBot.Types
( IrcConfig(..)
, User(..)
, emptyIrcConfig
) where
import Data.Data (Data, Typeable)
import Data.Word (Word16)
import Data.IxSet (Indexable(..), ixSet, ixFun)
import Data.SafeCopy (Migrate(..), SafeCopy, base, deriveSafeCopy, extension)
import Data.Set (Set, empty)
import Data.Text (Text)
import Network.IRC.Bot.Types (User(..))
import Web.Routes (PathInfo(..))
data IrcConfig_0 = IrcConfig_0
{ ircHost_0 :: String
, ircPort_0 :: Word16
, ircNick_0 :: String
, ircCommandPrefix_0 :: String
, ircUser_0 :: User
, ircChannels_0 :: Set String
}
deriving (Eq, Ord, Read, Show, Data, Typeable)
$(deriveSafeCopy 0 'base ''User)
$(deriveSafeCopy 0 'base ''IrcConfig_0)
data IrcConfig = IrcConfig
{ ircHost :: String
, ircPort :: Word16
, ircNick :: String
, ircCommandPrefix :: String
, ircUser :: User
, ircChannels :: Set String
, ircEnabled :: Bool
}
deriving (Eq, Ord, Read, Show, Data, Typeable)
$(deriveSafeCopy 1 'extension ''IrcConfig)
instance Migrate IrcConfig where
type MigrateFrom IrcConfig = IrcConfig_0
migrate (IrcConfig_0 h p n cp u cs) = (IrcConfig h p n cp u cs True)
emptyIrcConfig :: IrcConfig
emptyIrcConfig = IrcConfig
{ ircHost = ""
, ircPort = 0
, ircNick = ""
, ircCommandPrefix = ""
, ircUser = User "" "" "" ""
, ircChannels = Data.Set.empty
, ircEnabled = False
}