Merge pull request haskell#91 from clinty/aeson-pretty-portability

Use defConfig with record fields to handle aeson-pretty's API change

httpbin/HttpBin/Server.hs

@@ -8,7 +8,7 @@ module HttpBin.Server (serve) where
 import Control.Applicative ((<$>))
 import Control.Monad.IO.Class (liftIO)
 import Data.Aeson (Value(..), eitherDecode, object, toJSON)
-import Data.Aeson.Encode.Pretty (Config(..), encodePretty')
+import Data.Aeson.Encode.Pretty (Config(..), Indent(Spaces), defConfig, encodePretty')
 import Data.ByteString.Char8 (pack)
 import Data.CaseInsensitive (original)
 import Data.Maybe (catMaybes, fromMaybe)
@@ -133,7 +133,7 @@ rqIntParam name req =
 
 writeJSON obj = do
   modifyResponse $ setContentType "application/json"
-  writeLBS . (<> "\n") . encodePretty' (Config 2 compare) . object $ obj
+  writeLBS . (<> "\n") . encodePretty' defConfig { confIndent = Spaces 2, confCompare = compare } . object $ obj
 
 respond act = do
   req <- getRequest

wreq.cabal

@@ -135,7 +135,7 @@ executable httpbin
   else
     build-depends:
       aeson >= 0.7,
-      aeson-pretty >= 0.7.1,
+      aeson-pretty >= 0.8.0,
       base >= 4.5 && < 5,
       base64-bytestring,
       bytestring,
@@ -179,7 +179,7 @@ test-suite tests
     HUnit,
     QuickCheck >= 2.7,
     aeson,
-    aeson-pretty >= 0.7.1,
+    aeson-pretty >= 0.8.0,
     base >= 4.5 && < 5,
     base64-bytestring,
     bytestring,