diff --git a/dist/build/test-http-mediaStub/test-http-mediaStub-tmp/test-http-mediaStub.hs b/dist/build/test-http-mediaStub/test-http-mediaStub-tmp/test-http-mediaStub.hs
new file mode 100644
--- /dev/null
+++ b/dist/build/test-http-mediaStub/test-http-mediaStub-tmp/test-http-mediaStub.hs
@@ -0,0 +1,5 @@
+module Main ( main ) where
+import Distribution.Simple.Test ( stubMain )
+import Tests ( tests )
+main :: IO ()
+main = stubMain tests
diff --git a/http-media.cabal b/http-media.cabal
--- a/http-media.cabal
+++ b/http-media.cabal
@@ -1,5 +1,5 @@
 name:          http-media
-version:       0.1.0
+version:       0.1.1
 license:       MIT
 license-file:  LICENSE
 author:        Timothy Jones
@@ -30,9 +30,9 @@
 
   exposed-modules:
     Network.HTTP.Media
+    Network.HTTP.Media.Match
     Network.HTTP.Media.MediaType
   other-modules:
-    Network.HTTP.Media.Match
     Network.HTTP.Media.MediaType.Internal
     Network.HTTP.Media.Quality
     Network.HTTP.Media.Utils
diff --git a/src/Network/HTTP/Media.hs b/src/Network/HTTP/Media.hs
--- a/src/Network/HTTP/Media.hs
+++ b/src/Network/HTTP/Media.hs
@@ -2,7 +2,7 @@
 -- | A framework for parsing HTTP media type headers.
 module Network.HTTP.Media
     (
-      -- * Media types
+    -- * Media types
       MediaType
     , (//)
     , (/:)
@@ -11,19 +11,21 @@
     , parameters
     , (/?)
     , (/.)
-    , matches
     , Quality
 
-      -- * Parsing
+    -- * Parsing
     , parseAccept
 
-      -- * Accept matching
+    -- * Accept matching
     , matchAccept
     , mapAccept
 
-      -- * Content matching
+    -- * Content matching
     , matchContent
     , mapContent
+
+    -- * Match
+    , Match (..)
     ) where
 
 ------------------------------------------------------------------------------
diff --git a/src/Network/HTTP/Media/Match.hs b/src/Network/HTTP/Media/Match.hs
--- a/src/Network/HTTP/Media/Match.hs
+++ b/src/Network/HTTP/Media/Match.hs
@@ -2,8 +2,7 @@
 -- | Defines the 'Match' type class, designed to unify types on the
 -- matching functions in the Media module.
 module Network.HTTP.Media.Match
-    (
-      Match (..)
+    ( Match (..)
     , mostSpecific
     ) where
 
diff --git a/src/Network/HTTP/Media/Quality.hs b/src/Network/HTTP/Media/Quality.hs
--- a/src/Network/HTTP/Media/Quality.hs
+++ b/src/Network/HTTP/Media/Quality.hs
@@ -36,6 +36,7 @@
 
 
 ------------------------------------------------------------------------------
+-- | Converts the integral value into its standard quality representation.
 showQ :: Word16 -> String
 showQ 1000 = "1"
 showQ 0    = "0"
@@ -43,6 +44,7 @@
 
 
 ------------------------------------------------------------------------------
+-- | Reads the standard quality representation into an integral value.
 readQ :: String -> Maybe Word16
 readQ "1" = Just 1000
 readQ "0" = Just 0
diff --git a/src/Network/HTTP/Media/Utils.hs b/src/Network/HTTP/Media/Utils.hs
--- a/src/Network/HTTP/Media/Utils.hs
+++ b/src/Network/HTTP/Media/Utils.hs
@@ -1,8 +1,7 @@
 -----------------------------------------------------------------------------
 -- | Common utilities.
 module Network.HTTP.Media.Utils
-    (
-      breakByte
+    ( breakByte
     , trimBS
 
     , validChars