diff options
| author | Julien Dessaux | 2009-08-06 00:09:56 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2009-08-06 00:09:56 +0200 |
| commit | 45ebb68aa03ff7a292f46048141949c12cf90f91 (patch) | |
| tree | fe336511aa80bcdddff64894bdb865359f6d7f18 /Hsbot/IRC.hs | |
| parent | Wrote a dynamic compilation stuff that works (unable to test reboot yet) (diff) | |
| download | hsbot-45ebb68aa03ff7a292f46048141949c12cf90f91.tar.gz hsbot-45ebb68aa03ff7a292f46048141949c12cf90f91.tar.bz2 hsbot-45ebb68aa03ff7a292f46048141949c12cf90f91.zip | |
renamed "Server" algebraic data type to "IrcServer"
Diffstat (limited to 'Hsbot/IRC.hs')
| -rw-r--r-- | Hsbot/IRC.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs index 094cb3f..6ff1013 100644 --- a/Hsbot/IRC.hs +++ b/Hsbot/IRC.hs @@ -22,9 +22,9 @@ data IrcInput = Cmd User Channel (Command, Maybe String) -- a regular command -- | Data that can go over the remote channel data IrcOutput = Str String -- a regular string - | Quit (Server, Handle) -- a quit message from a server - | Join (Server, Channel) -- joined a channel - | Part (Server, Channel) -- parted the channel + | Quit (IrcServer, Handle) -- a quit message from a server + | Join (IrcServer, Channel) -- joined a channel + | Part (IrcServer, Channel) -- parted the channel | Reboot -- reboot message sent | Nil -- signifies thread death, only happens after reboot deriving (Eq,Show) |