export BasicAuth constructor

This commit is contained in:
Evgeny Poberezkin
2022-11-13 08:29:54 +00:00
parent e281efdcb8
commit 95db734b2d

View File

@@ -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