dandri/simplex-chat
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-11-04 06:32:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

store: one addressText for the names views

Browse Source
This commit is contained in:
shum committed 2026-10-22 03:42:36 +00:00
1 parent 9b7843c8fe
commit 1dbccd8be1
2 files changed
+2 -8
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

apps/simplex-store-service/src/StoreService/Names/View.hs
+1 -1
View File
@@ -2,7 +2,7 @@
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
module StoreService.Names.View (ViewReads (..), registrationView, readViewChain, viewJSON, tldText) where
module StoreService.Names.View (ViewReads (..), registrationView, readViewChain, viewJSON, addressText, tldText) where
import Data.Aeson ((.=))
import qualified Data.Aeson as J
apps/simplex-store-service/src/StoreService/Web/Names/Search.hs
+1 -7
View File
@@ -16,14 +16,11 @@ import qualified Data.ByteString.Char8 as B
import Data.Char (isDigit)
import Data.Text (Text)
import qualified Data.Text as T
import Data.Text.Encoding (decodeLatin1)
import Data.Time.Clock.POSIX (utcTimeToPOSIXSeconds)
import Network.HTTP.Types (status200)
import Network.Wai (Request, Response, ResponseReceived, queryString)
import Simplex.Chat.Badges.Code (maxNameLength, minNameLength)
import Simplex.Messaging.Agent.Store.Common (DBStore, withTransaction)
import Simplex.Messaging.Encoding.String (strEncode)
import Simplex.Messaging.Eth.Address (Address)
import Simplex.Messaging.SimplexName (LabelHash (..))
import Simplex.Messaging.Util (tshow)
import StoreService.Config (ChainConfig (..), NamesConfig (..))
@@ -33,7 +30,7 @@ import StoreService.Names.Contracts
import StoreService.Names.Links (LinkKind (..), linkKindOf)
import StoreService.Names.Profiles (Entity, Profiles, linkEntity, linkPreview)
import StoreService.Names.Store (isLabelRegistering)
import StoreService.Names.View (tldText)
import StoreService.Names.View (addressText, tldText)
import StoreService.Web.Http (Respond, badRequest, invalidLink, invalidName, jsonResponse, maxBodyBytes, providerUnavailable, readBoundedBody)
import System.Timeout (timeout)
import Text.Read (readMaybe)
@@ -125,6 +122,3 @@ previewHandler ps req respond =
Just (J.String link) | Just kind <- linkKindOf link -> respond . jsonResponse status200 . J.toJSON =<< linkPreview ps kind link
_ -> respond invalidLink
_ -> respond badRequest
addressText :: Address -> Text
addressText = decodeLatin1 . strEncode