servant 0.6.1 → 0.7

raw patch · 3 files changed

+14/−3 lines, 3 files

Files

servant.cabal +1/−1
src/Servant/API/ContentTypes.hs +1/−1
src/Servant/API/Verbs.hs +12/−1

servant.cabal view

@@ -1,5 +1,5 @@ name:                servant-version:             0.6.1+version:             0.7 synopsis:            A family of combinators for defining webservices APIs description:   A family of combinators for defining webservices APIs and serving them

src/Servant/API/ContentTypes.hs view

@@ -169,7 +169,7 @@     handleAcceptH :: Proxy list -> AcceptHeader -> a -> Maybe (ByteString, ByteString)  instance OVERLAPPABLE_-         (AllMimeRender (ct ': cts) a) => AllCTRender (ct ': cts) a where+         (Accept ct, AllMime cts, AllMimeRender (ct ': cts) a) => AllCTRender (ct ': cts) a where     handleAcceptH _ (AcceptHeader accept) val = M.mapAcceptMedia lkup accept       where pctyps = Proxy :: Proxy (ct ': cts)             amrs = allMimeRender pctyps val

src/Servant/API/Verbs.hs view

@@ -14,7 +14,9 @@ import           GHC.TypeLits              (Nat) import           Network.HTTP.Types.Method (Method, StdMethod (..),                                             methodDelete, methodGet, methodHead,-                                            methodPatch, methodPost, methodPut)+                                            methodPatch, methodPost, methodPut,+                                            methodTrace, methodConnect,+                                            methodOptions)  -- | @Verb@ is a general type for representing HTTP verbs (a.k.a. methods). For -- convenience, type synonyms for each verb with a 200 response code are@@ -167,3 +169,12 @@  instance ReflectMethod 'HEAD where     reflectMethod _ = methodHead++instance ReflectMethod 'OPTIONS where+    reflectMethod _ = methodOptions++instance ReflectMethod 'TRACE where+    reflectMethod _ = methodTrace++instance ReflectMethod 'CONNECT where+    reflectMethod _ = methodConnect