voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed FHMMGPm8Kh hbs2-create-acb

This commit is contained in:
Dmitry Zuikov 2023-02-17 13:46:08 +03:00
parent 124ad73b1f
commit 7efa5edbb7
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/drafts/pep-04.txt
View File

@ -1,7 +1,7 @@
PEP: pep-03-reference-update PEP: pep-03-reference-update
``` ```
$$ (set lang ru) $$$ (set lang ru)
``` ```

6
hbs2-core/lib/HBS2/Net/Proto/ACB.hs
View File

@ -112,19 +112,19 @@ instance FromStringMaybe (ACB 'NaClAsymm e) where
, Just a == defAcb , Just a == defAcb
] ]
owners = catMaybes owners = L.nub $ catMaybes
[ fromStringMay (Text.unpack e) [ fromStringMay (Text.unpack e)
| (ListVal (Key "acb-owner" [SymbolVal a, LitStrVal e]) ) <- parsed | (ListVal (Key "acb-owner" [SymbolVal a, LitStrVal e]) ) <- parsed
, Just a == defAcb , Just a == defAcb
] ]
readers = catMaybes readers = L.nub $ catMaybes
[ fromStringMay (Text.unpack e) [ fromStringMay (Text.unpack e)
| (ListVal (Key "acb-reader" [SymbolVal a, LitStrVal e]) ) <- parsed | (ListVal (Key "acb-reader" [SymbolVal a, LitStrVal e]) ) <- parsed
, Just a == defAcb , Just a == defAcb
] ]
writers = catMaybes writers = L.nub $ catMaybes
[ fromStringMay (Text.unpack e) [ fromStringMay (Text.unpack e)
| (ListVal (Key "acb-writer" [SymbolVal a, LitStrVal e]) ) <- parsed | (ListVal (Key "acb-writer" [SymbolVal a, LitStrVal e]) ) <- parsed
, Just a == defAcb , Just a == defAcb