X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=cloogleirc.icl;h=a504883baca3dac85abd8ede4823879692decba8;hp=1241b7b0c6c2221b5b95e605d7afe16fd7a70c50;hb=9d3f47b4dfbfcda74e3615361e858d156e3ef395;hpb=a07ec62a3f7932f70b34c5fe7fe5ec0fa92b283a

diff --git a/cloogleirc.icl b/cloogleirc.icl
index 1241b7b..a504883 100644
--- a/cloogleirc.icl
+++ b/cloogleirc.icl
@@ -67,6 +67,7 @@ cloogle data w
 # resp = fromOk mer
 = case fromJSON $ fromString resp.HTTPResponse.rsp_data of
 	Nothing = ("couldn't parse json", w)
+	Just {return=127} = ("No results for " + data, w)
 	Just clr = ("Results for " + data + " -- https://cloogle.org/#" +
 		replaceSubString "+" "%20" (urlEncode data) + "\n" +
 		processResults clr, w)
@@ -86,6 +87,9 @@ cloogle data w
 				+++ toString (length class_funs) +++ " class functions"
 		processResult (ModuleResult (br, _))
 			= "Module in " +++ br.library +++ ": " +++ br.modul
+		processResult (SyntaxResult (br, re))
+			= "Clean syntax: " +++ re.syntax_title +++ "\n"
+				+++ concat (intersperse "; " re.syntax_code)
 
 		limitResults :: String -> String
 		limitResults s