--------------------------------------------------------------------------------
encodePrefix :: Prefix -> ByteString
encodePrefix (ServerPrefix s)   = ":" <> T.encodeUtf8 s
encodePrefix :: Prefix -> ByteString
encodePrefix (ServerPrefix s)   = ":" <> T.encodeUtf8 s
encodePrefix (ServerPrefix s)   = ":" <> T.encodeUtf8 s