kevin 0.1.5.3 → 0.1.5.4
raw patch · 4 files changed
+5/−7 lines, 4 files
Files
- Kevin/Damn/Protocol.hs +1/−1
- Kevin/Protocol.hs +0/−1
- Kevin/Types.hs +1/−2
- kevin.cabal +3/−3
Kevin/Damn/Protocol.hs view
@@ -44,7 +44,7 @@ respond pkt "login" = if okay pkt then do modify_ $ loggedIn ^= True- gets_ (^. toJoin) >>= mapM_ sendJoin+ gets_ (^. joining) >>= mapM_ sendJoin else I.sendNotice $ "Login failed: " `T.append` getArg "e" pkt respond pkt "join" = do
Kevin/Protocol.hs view
@@ -34,7 +34,6 @@ mempty mempty mempty- mempty False logChan
Kevin/Types.hs view
@@ -14,7 +14,7 @@ modify_, -- lenses- users, privclasses, titles, toJoin, joining, loggedIn,+ users, privclasses, titles, joining, loggedIn, -- other accessors damn, irc, dChan, iChan, settings, logger@@ -58,7 +58,6 @@ , _users :: UserStore , _privclasses :: PrivclassStore , _titles :: TitleStore- , _toJoin :: [T.Text] , _joining :: [T.Text] , _loggedIn :: Bool , logger :: Chan String
kevin.cabal view
@@ -1,5 +1,5 @@ Name: kevin-Version: 0.1.5.3+Version: 0.1.5.4 Synopsis: a dAmn ↔ IRC proxy Description: a dAmn ↔ IRC proxy License: GPL@@ -12,7 +12,7 @@ source-repository head type: git- location: git://github.com/otter/kevin.git+ location: git://github.com/otters/kevin.git Executable kevin Main-is: Main.hs@@ -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.5.3"+ cpp-options: -DVERSION="0.1.5.4"