diff --git a/Network/IRC/Commands.hs b/Network/IRC/Commands.hs
--- a/Network/IRC/Commands.hs
+++ b/Network/IRC/Commands.hs
@@ -10,12 +10,14 @@
   , part
   , quit
   , privmsg
+  , kick
   ) where
 
 import Network.IRC.Base
 
 type Channel    = String
 type Password   = String
+type Reason     = String
 
 mkMessage           :: String -> [Parameter] -> Message
 mkMessage cmd params = Message Nothing cmd params
@@ -31,6 +33,10 @@
 
 joinChan  :: Channel -> Message
 joinChan c = mkMessage "JOIN" [c]
+
+kick :: Channel -> UserName -> Maybe Reason -> Message
+kick c u (Just r) = mkMessage "KICK" [c,u,r]
+kick c u Nothing  = mkMessage "KICK" [c,u]
 
 part  :: Channel -> Message
 part c = mkMessage "PART" [c]
diff --git a/Network/IRC/Parser.hs b/Network/IRC/Parser.hs
--- a/Network/IRC/Parser.hs
+++ b/Network/IRC/Parser.hs
@@ -24,7 +24,6 @@
 import Network.IRC.Base
 
 import Control.Monad
-import Data.Maybe
 import Text.ParserCombinators.Parsec hiding (spaces)
 
 -- | Parse a String into a Message.
diff --git a/irc.cabal b/irc.cabal
--- a/irc.cabal
+++ b/irc.cabal
@@ -1,7 +1,7 @@
 name:               irc
 synopsis:           A small library for parsing IRC messages.
 description:        A set of combinators and types for parsing IRC messages.
-version:            0.5.0.0
+version:            0.5.1.0
 category:           Data, Network
 license:            BSD3
 license-file:       LICENSE