diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+### 0.2.2
+* Add `isKeyCode` function [ryantrinkle]
+
 ### 0.2.1
 * Bugfix: the keycodes for `-` and `=` were swapped on Gecko-based browsers (e.g., Firefox)
 
diff --git a/keycode.cabal b/keycode.cabal
--- a/keycode.cabal
+++ b/keycode.cabal
@@ -1,5 +1,5 @@
 name:                keycode
-version:             0.2.1
+version:             0.2.2
 synopsis:            Maps web browser keycodes to their corresponding keyboard keys
 description:         Keyboard events in web browsers are often represented as keycodes,
                      which (1) are difficult to remember, and (2) sometimes vary from
diff --git a/src/Web/KeyCode.hs b/src/Web/KeyCode.hs
--- a/src/Web/KeyCode.hs
+++ b/src/Web/KeyCode.hs
@@ -27,7 +27,7 @@
 
 /Since: 0.1/
 -}
-module Web.KeyCode (Key(..), KeyCode, keyCodeLookup, keyCodeMap) where
+module Web.KeyCode (Key(..), KeyCode, keyCodeLookup, keyCodeMap, isKeyCode) where
 
 import Data.IntMap (IntMap, findWithDefault, fromAscList)
 import Data.Ix (Ix)
@@ -302,3 +302,9 @@
     , (224, Command       )
     , (225, Alt           )
     ]
+
+-- | Return 'True' if the given 'KeyCode' matches the given 'Key'.
+--
+-- /Since: 0.2.2/
+isKeyCode :: Key -> KeyCode -> Bool
+isKeyCode key code = key == keyCodeLookup code