At holomorph's request: search results are just one line

offby1 · Jun 25, 2016 · 28a8090 · 28a8090
1 parent ee12e65
commit 28a8090
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/irc-process-line.rkt b/irc-process-line.rkt
@@ -485,8 +485,7 @@
 
 (defverb (g query ...) "Do a Google search"
   (let ((result (list-ref (hash-ref (search (string-join query " ")) 'items) 0)))
-    (reply (hash-ref result 'title))
-    (reply (hash-ref result 'link))))
+    (reply "~a ~a" (hash-ref result 'title)(hash-ref result 'link))))
 
 (defverb (sentientp) "imitate fsbot"
   (reply "Any day now"))