http-media 0.1.0 → 0.1.1

raw patch · 6 files changed

+18/−11 lines, 6 files

Files

dist/build/test-http-mediaStub/test-http-mediaStub-tmp/test-http-mediaStub.hs +5/−0
http-media.cabal +2/−2
src/Network/HTTP/Media.hs +7/−5
src/Network/HTTP/Media/Match.hs +1/−2
src/Network/HTTP/Media/Quality.hs +2/−0
src/Network/HTTP/Media/Utils.hs +1/−2

+ dist/build/test-http-mediaStub/test-http-mediaStub-tmp/test-http-mediaStub.hs view

@@ -0,0 +1,5 @@+module Main ( main ) where+import Distribution.Simple.Test ( stubMain )+import Tests ( tests )+main :: IO ()+main = stubMain tests

http-media.cabal view

@@ -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

src/Network/HTTP/Media.hs view

@@ -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  ------------------------------------------------------------------------------

src/Network/HTTP/Media/Match.hs view

@@ -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

src/Network/HTTP/Media/Quality.hs view

@@ -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

src/Network/HTTP/Media/Utils.hs view

@@ -1,8 +1,7 @@ ----------------------------------------------------------------------------- -- | Common utilities. module Network.HTTP.Media.Utils-    (-      breakByte+    ( breakByte     , trimBS      , validChars