agent: FromField/ToField for SimplexNameInfo

Stored as TEXT via decodeLatin1 . strEncode and decoded via
fromTextField_ $ eitherToMaybe . strDecode . encodeUtf8 — the
established pattern for typed TEXT columns in this codebase
(see RcvSwitchStatus, SndSwitchStatus, RatchetSyncState at
Agent/Protocol.hs:614-647). Lets simplex-chat carry the type
directly in DB tuples without a per-call decode helper.

Author: shumvgolove

src/Simplex/Messaging/SimplexName.hs

@@ -27,10 +27,11 @@ import Data.Char (isDigit)
 import Data.Functor (($>))
 import Data.Text (Text)
 import qualified Data.Text as T
-import Data.Text.Encoding (encodeUtf8)
+import Data.Text.Encoding (decodeLatin1, encodeUtf8)
+import Simplex.Messaging.Agent.Store.DB (FromField (..), ToField (..), fromTextField_)
 import Simplex.Messaging.Encoding.String
 import Simplex.Messaging.Parsers (defaultJSON, dropPrefix, enumJSON)
-import Simplex.Messaging.Util (safeDecodeUtf8, (<$?>))
+import Simplex.Messaging.Util (eitherToMaybe, safeDecodeUtf8, (<$?>))
 
 data SimplexNameInfo = SimplexNameInfo
   { nameType :: SimplexNameType,
@@ -123,6 +124,10 @@ shortNameInfoStr = \case
         NTPublicGroup -> "#"
         NTContact -> "@"
 
+instance ToField SimplexNameInfo where toField = toField . decodeLatin1 . strEncode
+
+instance FromField SimplexNameInfo where fromField = fromTextField_ $ eitherToMaybe . strDecode . encodeUtf8
+
 $(J.deriveJSON (enumJSON $ dropPrefix "TLD") ''SimplexTLD)
 
 $(J.deriveJSON (enumJSON $ dropPrefix "NT") ''SimplexNameType)