From 95db734b2d89bdf35e413f0abd4eac4ed3c64fc3 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Sun, 13 Nov 2022 08:29:54 +0000
Subject: [PATCH] export BasicAuth constructor

---
 src/Simplex/Messaging/Protocol.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Messaging/Protocol.hs b/src/Simplex/Messaging/Protocol.hs
index c19401c57..9cdaaaaad 100644
--- a/src/Simplex/Messaging/Protocol.hs
+++ b/src/Simplex/Messaging/Protocol.hs
@@ -74,7 +74,7 @@ module Simplex.Messaging.Protocol
     NtfServer,
     pattern NtfServer,
     ProtoServerWithAuth (..),
-    BasicAuth,
+    BasicAuth (..),
     SrvLoc (..),
     CorrId (..),
     QueueId,
@@ -689,7 +689,7 @@ instance ProtocolTypeI p => ToJSON (ProtocolServer p) where
   toJSON = strToJSON
   toEncoding = strToJEncoding
 
-newtype BasicAuth = BasicAuth ByteString
+newtype BasicAuth = BasicAuth {unBasicAuth :: ByteString}
   deriving (Eq, Show)
 
 instance IsString BasicAuth where fromString = BasicAuth . B.pack