diff --git a/Web/Encodings.hs b/Web/Encodings.hs
--- a/Web/Encodings.hs
+++ b/Web/Encodings.hs
@@ -32,8 +32,9 @@
     , FileInfo (..)
     , parseMultipart
     , parsePost
-      -- ** Cookies
+      -- ** Specific HTTP headers
     , decodeCookies
+    , parseHttpAccept
       -- * Date/time encoding
     , formatW3
     ) where
@@ -52,6 +53,7 @@
 import Control.Failure
 import Safe
 import Data.Char (ord, isControl)
+import Data.List.Split (splitOneOf)
 
 -- | Encode all but unreserved characters with percentage encoding.
 --
@@ -356,6 +358,15 @@
             ('=':rest) -> rest
             x -> x
      in (key', value')
+
+-- | Parse the HTTP accept string to determine supported content types.
+parseHttpAccept :: String -> [String]
+parseHttpAccept = filter (not . specialHttpAccept) . splitOneOf ";,"
+
+specialHttpAccept :: String -> Bool
+specialHttpAccept ('q':'=':_) = True
+specialHttpAccept ('*':_) = True
+specialHttpAccept _ = False
 
 -- | Format a 'UTCTime' in W3 format; useful for setting cookies.
 formatW3 :: UTCTime -> String
diff --git a/web-encodings.cabal b/web-encodings.cabal
--- a/web-encodings.cabal
+++ b/web-encodings.cabal
@@ -1,5 +1,5 @@
 name:            web-encodings
-version:         0.2.0.1
+version:         0.2.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -23,7 +23,8 @@
                      bytestring >= 0.9.1.4 && < 0.10,
                      text >= 0.5 && < 0.6,
                      failure >= 0.0.0 && < 0.1,
-                     safe >= 0.2 && < 0.3
+                     safe >= 0.2 && < 0.3,
+                     split >= 0.1.2 && < 0.2
     exposed-modules: Web.Encodings
                      Web.Encodings.MimeHeader,
                      Web.Encodings.StringLike,