X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=cloogleirc.icl;h=0150704ff1ce6bd2b03018c73eb8d6500007a8f2;hp=534a57a2d4349d5fb950d90d463476c66869f83e;hb=d8e24731b0019b32d0289977fc4620e12b0cd585;hpb=998c6376312382e65d05473c5778d6ac63add47f diff --git a/cloogleirc.icl b/cloogleirc.icl index 534a57a..0150704 100644 --- a/cloogleirc.icl +++ b/cloogleirc.icl @@ -1,6 +1,6 @@ module cloogleirc -import Cloogle +import Cloogle.API import Text.GenPrint import StdEnv @@ -90,6 +90,11 @@ cloogle data w processResult (SyntaxResult (br, re)) = "Clean syntax: " +++ re.syntax_title +++ "\n" +++ concat (intersperse "; " re.syntax_code) + processResult (ABCInstructionResult (br, re)) + = "ABC instruction: " +++ re.abc_instruction + processResult (ProblemResult pr) + = "Common problem: " +++ pr.problem_title + +++ "; see https://github.com/clean-cloogle/common-problems/blob/master/" +++ pr.problem_key +++ ".md" limitResults :: String -> String limitResults s