Return eitherDecodeLenient as deprecated synonym

Author: maksbotan

servant/src/Servant/API/ContentTypes.hs

@@ -65,6 +65,7 @@ module Servant.API.ContentTypes
     , AllMime(..)
     , AllMimeRender(..)
     , AllMimeUnrender(..)
+    , eitherDecodeLenient
     , canHandleAcceptH
     ) where
 
@@ -364,6 +365,12 @@ instance NFData NoContent
 --------------------------------------------------------------------------
 -- * MimeUnrender Instances
 
+-- | Deprecated: since aeson version 0.9 `eitherDecode` has lenient behavior.
+--
+eitherDecodeLenient :: FromJSON a => ByteString -> Either String a
+eitherDecodeLenient = eitherDecode
+{-# DEPRECATED eitherDecodeLenient "use eitherDecode instead" #-}
+
 -- | `eitherDecode`
 instance FromJSON a => MimeUnrender JSON a where
     mimeUnrender _ = eitherDecode

servant/test/Servant/API/ContentTypesSpec.hs

@@ -219,7 +219,7 @@ spec = describe "Servant.API.ContentTypes" $ do
                 handleCTypeH (Proxy :: Proxy '[JSONorText]) "image/jpeg"
                     "foobar" `shouldBe` (Nothing :: Maybe (Either String Int))
 
-    describe "eitherDecodeLenient" $ do
+    describe "eitherDecode is lenient" $ do
 
         -- Since servant-0.20.1 MimeUnrender JSON instance uses eitherDecode,
         -- as aeson >= 0.9 supports decoding top-level strings and numbers.