smp-server: Names resolver hardening + cleanup

src/Simplex/Messaging/Protocol.hs

@@ -164,7 +164,6 @@ module Simplex.Messaging.Protocol
     FwdResponse (..),
     FwdTransmission (..),
     LookupKey (..),
-    unLookupKey,
     NameRecord (..),
     NameOwner,
     mkNameOwner,
@@ -573,10 +572,6 @@ type QueueId = EntityId
 newtype LookupKey = LookupKey ByteString
   deriving (Eq, Show)
 
-unLookupKey :: LookupKey -> ByteString
-unLookupKey (LookupKey s) = s
-{-# INLINE unLookupKey #-}
-
 instance Encoding LookupKey where
   smpEncode (LookupKey s) = smpEncode s
   smpP = do