Add another function for building a key-value pair Encoding
commitf9e40931151ebe6ad26a55008a0b11a4c69a4f7a
authorAndrew Martin <andrew.thaddeus@gmail.com>
dateWed 14 Dec 2016, 21:19 (10 years ago)
parent66a5b73
Data/Aeson/Encoding/Internal.hs+3
@@ -124,6 +124,9 @@ data Series = Empty
124124pair :: Text -> Encoding -> Series
125125pair name val = Value $ retagEncoding $ text name >< colon >< val
126126
127+pair' :: Encoding' Text -> Encoding -> Series
128+pair' name val = Value $ retagEncoding $ retagEncoding name >< colon >< val
129+
127130instance Semigroup Series where
128131 Empty <> a = a
129132 a <> Empty = a