@@ -4,6 +4,7 @@ module Yoga.JSON
44 , readJSON'
55 , readJSON_
66 , writeJSON
7+ , writePrettyJSON
78 , write
89 , read
910 , read'
@@ -113,6 +114,9 @@ readJSON_ = hush <<< readJSON
113114-- | JSON.stringify
114115foreign import _unsafeStringify ∷ ∀ a. a → String
115116
117+-- | JSON.stringify with a number of spaces
118+foreign import _unsafePrettyStringify ∷ ∀ a. Int -> a → String
119+
116120unsafeStringify ∷ ∀ a. a → String
117121unsafeStringify = _unsafeStringify
118122
@@ -124,6 +128,14 @@ writeJSON ∷
124128 String
125129writeJSON = _unsafeStringify <<< writeImpl
126130
131+writePrettyJSON ∷
132+ ∀ a.
133+ WriteForeign a ⇒
134+ Int →
135+ a →
136+ String
137+writePrettyJSON spaces = _unsafePrettyStringify spaces <<< writeImpl
138+
127139write ∷
128140 ∀ a.
129141 WriteForeign a ⇒