Enabled generated nospam-id via the "nid" command.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs
index 2f3a2bb1..1f79d1a5 100644
--- a/src/Network/Tox/NodeId.hs
+++ b/src/Network/Tox/NodeId.hs
@@ -548,7 +548,9 @@ parseNoSpamId spec | Text.length spec == 76
 parseNoSpamJID :: Text -> Either String NoSpamId
 parseNoSpamJID jid = do
     (Just u,h,_) <- Right $ splitJID jid
-    (base64,".tox") <- Right $ splitAt 43 $ Text.unpack h
+    base64 <- case splitAt 43 $ Text.unpack h of
+                (base64,".tox") -> Right base64
+                _               -> Left "Hostname should be 43 base64 digits followed by .tox."
     pub <- id2key <$> readEither base64
     let ustr = Text.unpack u
     '$' : b64digits <- Right ustr -- TODO: support 0x prefix also.