1 files changed, 3 insertions, 3 deletions

diff --git a/dht/src/Network/Tox/NodeId.hs b/dht/src/Network/Tox/NodeId.hs
index 68888fdd..6c82ce09 100644
--- a/dht/src/Network/Tox/NodeId.hs
+++ b/dht/src/Network/Tox/NodeId.hs
@@ -575,9 +575,9 @@ parseNoSpamJID jid = do
     (u,h) <- maybe (Left "Invalid JID.") Right
                 $ let (mu,h,_) = splitJID jid
                   in fmap (, h) mu
-    based <- case splitAt 52 $ Text.unpack h of
-                (base32,".tox") -> Right base32
-                _               -> Left "Hostname should be 52 z-base32 digits followed by .tox."
+    based <- case stripSuffix ".tox" h of
+                Just base32 -> Right $ Text.unpack base32
+                _           -> Left "Hostname should be 52 z-base32 digits followed by .tox."
     pub <- id2key <$> readEither based
     let ustr = Text.unpack u
     case ustr of