packages feed

kevin 0.1.4 → 0.1.5

raw patch · 2 files changed

+8/−2 lines, 2 files

Files

Kevin/Damn/Protocol.hs view
@@ -169,6 +169,12 @@         pkt = fromJust $ subPacket spk         modifiedPkt = parsePacket (T.replace "\n\npc" "\npc" (fromJust $ body spk))         arg = flip getArg pkt+                +respond pkt "kicked" = do+    roomname <- deformatRoom (fromJust $ parameter pkt)+    uname <- gets_ $ getUsername . settings+    modify_ $ removeRoom roomname+    I.sendKick uname (getArg "by" pkt) roomname $ case body pkt of {Just "" -> Nothing; x -> x}  respond pkt "send" = I.sendNotice $ T.concat ["Send error: ", getArg "e" pkt]
kevin.cabal view
@@ -1,5 +1,5 @@ Name:             kevin-Version:          0.1.4+Version:          0.1.5 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, TemplateHaskell     ghc-options:      -Wall -fno-warn-unused-do-bind -threaded-    cpp-options:      -DVERSION="0.1.4"+    cpp-options:      -DVERSION="0.1.5"