dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-09-28 19:59:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

another round of review

Browse Source
This commit is contained in:
Alain Brenzikofer
2026-08-31 08:32:46 +02:00
parent 3de738e9bf
commit 25e3bcbef3
3 changed files with 92 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Library/Commands.hs
+4 -2
View File
@@ -5342,9 +5342,11 @@ nonSpaceTextP = safeDecodeUtf8 <$> A.takeTill (== ' ')
defaultNameTtl :: NameTtl
defaultNameTtl = 31536000
-- | Hardcoded commit→reveal wait in ms, standing in for the on-chain minimum commitment age.
-- | Hardcoded commit→reveal wait in ms, standing in for the on-chain minimum
-- commitment age. Deliberately longer than the age the service enforces: waiting
-- exactly the minimum makes every registration a race against its own clock.
commitWaitMs :: Word32
commitWaitMs = 1000
commitWaitMs = 1500
firstNameLink :: ContactConnType -> [Text] -> Maybe (ConnShortLink 'CMContact)
firstNameLink ctType = foldr (\t r -> nameLink t <|> r) Nothing