X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=GenIRC.icl;h=c8135769a5c93785b4b5b5aaf729c32e4068142b;hp=4a4d754a8ab2eff5ccc33b1a2e10fcae5b87cd13;hb=d1b0f20fbd85d85cee19347e7deda5e3a9251906;hpb=80375cb5c33d2a86e2b5e2bd5b7d8025e8a74f1f

diff --git a/GenIRC.icl b/GenIRC.icl
index 4a4d754..c813576 100644
--- a/GenIRC.icl
+++ b/GenIRC.icl
@@ -26,7 +26,7 @@ gIRCParse{|EITHER|} lp rp as = case lp as of
 	(Right a, rest) = (Right $ LEFT a, rest)
 	(Left e1, _) = case rp as of
 		(Right a, rest) = (Right $ RIGHT a, rest)
-		(Left e2, _) = (Left $ e1 +++ " and " +++ e2, [])
+		(Left e2, _) = (Left $ e2, [])
 gIRCParse{|OBJECT|} p as = appFst (fmap OBJECT) $ p as
 gIRCParse{|CONS of d|} p []
 	= (Left $ concat ["Expected a cmd constructor: ", d.gcd_name], [])