wai-predicates 0.9.0 → 0.10.0

raw patch · 3 files changed

+23/−4 lines, 3 filesdep +textdep ~singletonsPVP ok

version bump matches the API change (PVP)

Dependencies added: text

Dependency ranges changed: singletons

API changes (from Hackage documentation)

Files

• CHANGELOG +4/−0
• src/Network/Wai/Predicate/MediaType.hs +17/−3
• wai-predicates.cabal +2/−1

@@ -1,3 +1,7 @@+0.10.0++    * Update `singletons` dependency.+ 0.9.0      * Remove upper-bounds of dependencies.

@@ -1,13 +1,19 @@+{-# LANGUAGE CPP            #-} {-# LANGUAGE DataKinds      #-} {-# LANGUAGE KindSignatures #-}  module Network.Wai.Predicate.MediaType where  import Data.ByteString (ByteString)-import Data.ByteString.Char8 (pack) import Data.Singletons import Data.Singletons.TypeLits +#if MIN_VERSION_singletons(2,3,0)+import Data.Text.Encoding (encodeUtf8)+#else+import Data.ByteString.Char8 (pack)+#endif+ data Media (t :: Symbol) (s :: Symbol) = Media     { rawType      :: !ByteString     , rawSubTypes  :: !ByteString@@ -15,14 +21,22 @@     , mediaParams  :: ![(ByteString, ByteString)]     } deriving (Eq, Show) -mediaType :: SingI t => Media t s -> ByteString+mediaType :: KnownSymbol t => Media t s -> ByteString mediaType m = withSing (f m)   where     f :: Media t s -> Sing t -> ByteString+#if MIN_VERSION_singletons(2,3,0)+    f _ t = encodeUtf8 (fromSing t)+#else     f _ t = pack (fromSing t)+#endif -mediaSubType :: SingI s => Media t s -> ByteString+mediaSubType :: KnownSymbol s => Media t s -> ByteString mediaSubType m = withSing (f m)   where     f :: Media t s -> Sing s -> ByteString+#if MIN_VERSION_singletons(2,3,0)+    f _ s = encodeUtf8 (fromSing s)+#else     f _ s = pack (fromSing s)+#endif

@@ -1,5 +1,5 @@ name:                wai-predicates-version:             0.9.0+version:             0.10.0 synopsis:            WAI request predicates license:             OtherLicense license-file:        LICENSE@@ -59,6 +59,7 @@       , case-insensitive      >= 1.1       , http-types            >= 0.8       , singletons            >= 0.10+      , text                  >= 1.2       , transformers          >= 0.3       , vault                 >= 0.3       , vector                >= 0.10