diff --git a/Network/IRC/CTCP.hs b/Network/IRC/CTCP.hs
--- a/Network/IRC/CTCP.hs
+++ b/Network/IRC/CTCP.hs
@@ -27,12 +27,12 @@
 import qualified Data.Text       as T
 
 -- |Type representing a CTCP-encoded bytestring.
-newtype CTCPByteString = CBS
-    { getUnderlyingByteString :: ByteString
-    -- ^Get the underlying (encoded) bytestring from a CTCP
-    -- bytestring.
-    }
+newtype CTCPByteString = CBS ByteString
     deriving (Eq, Show)
+
+-- |Get the underlying (encoded) bytestring from a CTCP bytestring.
+getUnderlyingByteString :: CTCPByteString -> ByteString
+getUnderlyingByteString (CBS bs) = bs
 
 -- |Turn a command name and arguments into a CTCP-encoded bytestring.
 --
diff --git a/irc-ctcp.cabal b/irc-ctcp.cabal
--- a/irc-ctcp.cabal
+++ b/irc-ctcp.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.2.0
+version:             0.1.2.1
 
 -- A short (one-line) description of the package.
 synopsis:            A CTCP encoding and decoding library for IRC clients.