clckwrks-plugin-ircbot 0.6.8 → 0.6.9

raw patch · 2 files changed

+18/−2 lines, 2 files

Files

• Clckwrks/IrcBot/Types.hs +17/−1
• clckwrks-plugin-ircbot.cabal +1/−1

@@ -5,6 +5,7 @@     , emptyIrcConfig     ) where +import Data.ByteString.Char8 (pack) import Data.Data             (Data, Typeable) import Data.Word             (Word16) import Data.IxSet            (Indexable(..), ixSet, ixFun)@@ -14,6 +15,22 @@ import Network.IRC.Bot.Types (User(..)) import Web.Routes            (PathInfo(..)) +data User_0 = User_0+    { username_0   :: String    -- ^ username on client system+    , hostname_0   :: String  -- ^ hostname of client system+    , servername_0 :: String  -- ^ irc server client is connected to+    , realname_0   :: String    -- ^ client's real name+    }+    deriving (Data, Typeable, Eq, Ord, Read, Show)+$(deriveSafeCopy 0 'base ''User_0)++$(deriveSafeCopy 1 'extension ''User)++instance Migrate User where+    type MigrateFrom User = User_0+    migrate (User_0 un hs sn rn) =+        (User (pack un) hs sn (pack rn))+ data IrcConfig_0 = IrcConfig_0     { ircHost_0          :: String     , ircPort_0          :: Word16@@ -23,7 +40,6 @@     , ircChannels_0      :: Set String     }     deriving (Eq, Ord, Read, Show, Data, Typeable)-$(deriveSafeCopy 0 'base ''User) $(deriveSafeCopy 0 'base ''IrcConfig_0)  data IrcConfig = IrcConfig

@@ -1,5 +1,5 @@ Name:                clckwrks-plugin-ircbot-Version:             0.6.8+Version:             0.6.9 Synopsis:            ircbot plugin for clckwrks Homepage:            http://clckwrks.com/ License:             BSD3