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

diff --git a/cloogleirc.icl b/cloogleirc.icl
index 1241b7b..8f99a57 100644
--- a/cloogleirc.icl
+++ b/cloogleirc.icl
@@ -86,6 +86,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