Implement indentation in the encoder

tests/Test/KitchenSinkSpec.hs

@@ -30,46 +30,46 @@ spec = describe "Kitchen Sink" $ do
 
         either
             (expectationFailure . errorBundlePretty)
-            (flip shouldBe expected . Encoder.document Encoder.Minified)
+            (flip shouldBe expected . Encoder.document Encoder.minified)
             $ parse Parser.document dataFileName actual
 
     it "pretty prints the query" $ do
         dataFileName <- getDataFileName "tests/data/kitchen-sink.graphql"
         actual <- Text.IO.readFile dataFileName
         let expected = [r|query queryName($foo: ComplexType, $site: Site = MOBILE) {
-whoever123is: node(id: [123, 456]) {
-id
-... on User @defer {
-field2 {
-id
-alias: field1(first: 10, after: $foo) @include(if: $foo) {
-id
-...frag
-}
-}
-}
-}
+  whoever123is: node(id: [123, 456]) {
+    id
+    ... on User @defer {
+      field2 {
+        id
+        alias: field1(first: 10, after: $foo) @include(if: $foo) {
+          id
+          ...frag
+        }
+      }
+    }
+  }
 }
 
 mutation likeStory {
-like(story: 123) @defer {
-story {
-id
-}
-}
+  like(story: 123) @defer {
+    story {
+      id
+    }
+  }
 }
 
 fragment frag on Friend {
-foo(size: $size, bar: $b, obj: {key: "value"})
+  foo(size: $size, bar: $b, obj: {key: "value"})
 }
 
 {
-unnamed(truthy: true, falsey: false)
-query
+  unnamed(truthy: true, falsey: false)
+  query
 }
 |]
 
         either
             (expectationFailure . errorBundlePretty)
-            (flip shouldBe expected . Encoder.document (Encoder.Pretty 0))
+            (flip shouldBe expected . Encoder.document Encoder.pretty)
             $ parse Parser.document dataFileName actual