@@ -4,6 +4,7 @@ module Yoga.JSON
4 , readJSON'
4 , readJSON'
5 , readJSON_
5 , readJSON_
6 , writeJSON
6 , writeJSON
@@ -113,6 +114,9 @@ readJSON_ = hush <<< readJSON
113-- | JSON.stringify
114-- | JSON.stringify
114foreign import _unsafeStringify ∷ ∀ a. a → String
115foreign import _unsafeStringify ∷ ∀ a. a → String
117+-- | JSON.stringify with a number of spaces
118+foreign import _unsafePrettyStringify ∷ ∀ a. Int -> a → String
116unsafeStringify ∷ ∀ a. a → String
120unsafeStringify ∷ ∀ a. a → String
117unsafeStringify = _unsafeStringify
121unsafeStringify = _unsafeStringify
@@ -124,6 +128,14 @@ writeJSON ∷
125writeJSON = _unsafeStringify <<< writeImpl
129writeJSON = _unsafeStringify <<< writeImpl
137+writePrettyJSON spaces = _unsafePrettyStringify spaces <<< writeImpl
129 WriteForeign a ⇒
141 WriteForeign a ⇒