File tree Expand file tree Collapse file tree 2 files changed +4
-3
lines changed Expand file tree Collapse file tree 2 files changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -17,7 +17,7 @@ exports.fromObject = id;
17
17
18
18
exports . jsonNull = null ;
19
19
20
- exports . _stringify = function ( j ) {
20
+ exports . stringify = function ( j ) {
21
21
return JSON . stringify ( j ) ;
22
22
} ;
23
23
Original file line number Diff line number Diff line change @@ -43,6 +43,7 @@ module Data.Argonaut.Core
43
43
, jsonSingletonArray
44
44
, jsonEmptyObject
45
45
, jsonSingletonObject
46
+ , stringify
46
47
) where
47
48
48
49
import Prelude
@@ -228,11 +229,11 @@ instance ordJson :: Ord Json where
228
229
compare a b = runFn5 _compare EQ GT LT a b
229
230
230
231
instance showJson :: Show Json where
231
- show = _stringify
232
+ show = stringify
232
233
233
234
-- Foreigns
234
235
235
- foreign import _stringify :: Json -> String
236
+ foreign import stringify :: Json -> String
236
237
foreign import _foldJson :: forall z . Fn7 (JNull -> z ) (JBoolean -> z )
237
238
(JNumber -> z ) (JString -> z ) (JArray -> z )
238
239
(JObject -> z ) Json z
You can’t perform that action at this time.
0 commit comments