ecc3485 · typeable/aeson

git.iko.soy/typeable/aeson

on master help sign in

export pair' and reimplement pair

ecc3485Andrew Martin10 years ago

Data/Aeson/Encoding.hs+1

@@ -14,6 +14,7 @@ module Data.Aeson.Encoding

14 , Series

15 , pairs

16 , pair

17+ , pair'

17 -- * Predicates

18 -- * Predicates

18 , nullEncoding

19 , nullEncoding

19 -- * Encoding constructors

20 -- * Encoding constructors

Data/Aeson/Encoding/Internal.hs+2−1

@@ -13,6 +13,7 @@ module Data.Aeson.Encoding.Internal

13 , Series (..)

14 , pairs

15 , pair

16+ , pair'

16 -- * Predicates

17 -- * Predicates

17 , nullEncoding

18 , nullEncoding

18 -- * Encoding constructors

19 -- * Encoding constructors

@@ -122,7 +123,7 @@ data Series = Empty

122 deriving (Typeable)

123 deriving (Typeable)

123

124

124pair :: Text -> Encoding -> Series

125pair :: Text -> Encoding -> Series

125−pair name val = Value $ retagEncoding $ text name >< colon >< val

126+pair name val = pair' (text name) val

126

127

127pair' :: Encoding' Text -> Encoding -> Series

128pair' :: Encoding' Text -> Encoding -> Series

128pair' name val = Value $ retagEncoding $ retagEncoding name >< colon >< val

129pair' name val = Value $ retagEncoding $ retagEncoding name >< colon >< val