diff --git a/docs/drafts/pep-04.txt b/docs/drafts/pep-04.txt index 3c59cdaa..c6383e9b 100644 --- a/docs/drafts/pep-04.txt +++ b/docs/drafts/pep-04.txt @@ -1,7 +1,7 @@ PEP: pep-03-reference-update ``` -$$ (set lang ru) +$$$ (set lang ru) ``` diff --git a/hbs2-core/lib/HBS2/Net/Proto/ACB.hs b/hbs2-core/lib/HBS2/Net/Proto/ACB.hs index 1c05bb11..0b794b2d 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/ACB.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/ACB.hs @@ -112,19 +112,19 @@ instance FromStringMaybe (ACB 'NaClAsymm e) where , Just a == defAcb ] - owners = catMaybes + owners = L.nub $ catMaybes [ fromStringMay (Text.unpack e) | (ListVal (Key "acb-owner" [SymbolVal a, LitStrVal e]) ) <- parsed , Just a == defAcb ] - readers = catMaybes + readers = L.nub $ catMaybes [ fromStringMay (Text.unpack e) | (ListVal (Key "acb-reader" [SymbolVal a, LitStrVal e]) ) <- parsed , Just a == defAcb ] - writers = catMaybes + writers = L.nub $ catMaybes [ fromStringMay (Text.unpack e) | (ListVal (Key "acb-writer" [SymbolVal a, LitStrVal e]) ) <- parsed , Just a == defAcb