kevin 0.1.1 → 0.1.2

raw patch · 2 files changed

+7/−2 lines, 2 files

Files

• Kevin/IRC/Protocol.hs +5/−0
• kevin.cabal +2/−2

@@ -91,6 +91,11 @@  respond pkt "ADMIN" = let (p:ps) = params pkt in D.sendAdmin p $ T.intercalate " " ps +respond pkt "PROMOTE" = case params pkt of+    (room:user:group:_) -> D.sendPromote room user $ Just group+    (room:_) -> sendRoomNotice room "Usage: /promote #room username group"+    _ -> sendNotice "Usage: /promote #room username group"+ respond _ str = klogError $ T.unpack str  

@@ -1,5 +1,5 @@ Name:             kevin-Version:          0.1.1+Version:          0.1.2 Synopsis:         a dAmn ↔ IRC proxy Description:      a dAmn ↔ IRC proxy License:          GPL@@ -20,4 +20,4 @@     Other-Modules:    Kevin, Kevin.Protocol, Kevin.Base, Kevin.Util.Logger, Kevin.IRC.Protocol, Kevin.Damn.Protocol, Kevin.Util.Entity, Kevin.Util.Tablump, Kevin.Damn.Packet, Kevin.Damn.Protocol.Send, Kevin.IRC.Protocol.Send, Kevin.IRC.Packet, Kevin.Settings, Kevin.Types, Kevin.Util.Token     extensions:       CPP, DeriveDataTypeable, ExistentialQuantification, OverloadedStrings, ScopedTypeVariables     ghc-options:      -Wall -fno-warn-unused-do-bind -threaded-    cpp-options:      -DVERSION="0.1.1"+    cpp-options:      -DVERSION="0.1.2"