From 7efa5edbb7e707d3a8fd4ad95638e4520ec3d352 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 17 Feb 2023 13:46:08 +0300
Subject: [PATCH] fixed FHMMGPm8Kh hbs2-create-acb

---
 docs/drafts/pep-04.txt              | 2 +-
 hbs2-core/lib/HBS2/Net/Proto/ACB.hs | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

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