diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-28 20:55:11 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-28 20:55:11 +0100 |
| commit | b5d217d2040250892539cd7cd8249d32610e1312 (patch) | |
| tree | 61699364f1fa55c03ec067052ceec84b54d9b2f4 | |
| parent | f739541b7e9ef680cc6473d0303f6e1892ddc4f7 (diff) | |
| parent | d2fa829b6c83422a5bda7ad88df2e26618fef367 (diff) | |
Merge branch 'release-0.1'
| -rw-r--r-- | CHANGELOG.md | 7 | ||||
| -rw-r--r-- | erebos.cabal | 2 | ||||
| -rw-r--r-- | src/Erebos/Discovery.hs | 9 |
3 files changed, 12 insertions, 6 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md index 59d8f3d..56fc058 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,12 @@ # Revision history for erebos +## 0.1.8 -- 2025-03-28 + +* Discovery service without requiring ICE support +* Added `/delete` command to delete chatrooms for current user +* Ignore record items with unexpected type +* Support GHC 9.12 + ## 0.1.7 -- 2024-10-30 * Chatroom-specific identity diff --git a/erebos.cabal b/erebos.cabal index aa16899..4e45f3c 100644 --- a/erebos.cabal +++ b/erebos.cabal @@ -1,7 +1,7 @@ Cabal-Version: 3.0 Name: erebos -Version: 0.1.7 +Version: 0.1.8 Synopsis: Decentralized messaging and synchronization Description: Library and simple CLI interface implementing the Erebos identity diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs index d900363..48500d7 100644 --- a/src/Erebos/Discovery.hs +++ b/src/Erebos/Discovery.hs @@ -301,11 +301,10 @@ instance Service DiscoveryService where mbdp <- M.lookup (refDigest $ dconnTarget conn) <$> svcGetGlobal case mbdp of Nothing -> replyPacket $ DiscoveryConnectionResponse rconn - Just dp | addr : _ <- dpAddress dp -> do - replyPacket $ DiscoveryConnectionResponse rconn { dconnAddress = Just addr } - | Just dpeer <- dpPeer dp -> do - sendToPeer dpeer $ DiscoveryConnectionRequest conn - | otherwise -> svcPrint $ "Discovery: failed to relay connection request" + Just dp + | Just dpeer <- dpPeer dp -> do + sendToPeer dpeer $ DiscoveryConnectionRequest conn + | otherwise -> svcPrint $ "Discovery: failed to relay connection request" DiscoveryConnectionResponse conn -> do self <- svcSelf |