diff options
| author | Profpatsch <mail@profpatsch.de> | 2022-09-18T10·37+0200 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2022-09-25T14·17+0000 |
| commit | 0f74816d43dc9f926aa53dca1c08d004e6536e3e (patch) | |
| tree | f0fda133da45727d8340774c153b4b4bf73ae81a /users/Profpatsch/netencode/Netencode.hs | |
| parent | d44203d04669ff29b3047154a1f2707f4fe42c34 (diff) | |
feat(users/Profpatsch/netencode.rs): parse multiple stdin values r/4966
Adds support for parsing multiple netencode values from stdin. This is overly complicated for my tastes, but I don’t see a better way of writing this logic that does not read all of stdin before starting to parse the first value. A kingdom for a conduit. Change-Id: Ia4f849d4096c43e887756b756d2a85d7f9cd380a Reviewed-on: https://cl.tvl.fyi/c/depot/+/6631 Autosubmit: Profpatsch <mail@profpatsch.de> Reviewed-by: Profpatsch <mail@profpatsch.de> Tested-by: BuildkiteCI
Diffstat (limited to 'users/Profpatsch/netencode/Netencode.hs')
| -rw-r--r-- | users/Profpatsch/netencode/Netencode.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/users/Profpatsch/netencode/Netencode.hs b/users/Profpatsch/netencode/Netencode.hs index 8398d8246f..dfc57ce8dc 100644 --- a/users/Profpatsch/netencode/Netencode.hs +++ b/users/Profpatsch/netencode/Netencode.hs @@ -133,11 +133,11 @@ record = T . Fix . Record . coerce @(NEMap Text T) @(NEMap Text (Fix TF)) list :: [T] -> T list = T . Fix . List . coerce @[T] @([Fix TF]) --- Stable encoding of a netencode value. Record keys will be sorted lexicographically ascending. +-- | Stable encoding of a netencode value. Record keys will be sorted lexicographically ascending. netencodeEncodeStable :: T -> Builder netencodeEncodeStable (T fix) = Fix.foldFix (netencodeEncodeStableF id) fix --- Stable encoding of a netencode functor value. Record keys will be sorted lexicographically ascending. +-- | Stable encoding of a netencode functor value. Record keys will be sorted lexicographically ascending. -- -- The given function is used for encoding the recursive values. netencodeEncodeStableF :: (rec -> Builder) -> TF rec -> Builder |