X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=src%2Fyard.icl;h=b5e3c61f885002285eab6d8c6fc38aa6bd189385;hb=da0449d1b0998b76941699ace4a806022b52523d;hp=bded7fb94b2c110c8230f7acf8692c8b91a07de2;hpb=4c779c9791b03d96a76956e314cbc95f056448ce;p=cc1516.git

diff --git a/src/yard.icl b/src/yard.icl
index bded7fb..b5e3c61 100644
--- a/src/yard.icl
+++ b/src/yard.icl
@@ -24,7 +24,7 @@ runParser (Parser f) i = f i
 instance + Error where
     (+) ParseError r = r 
     (+) r ParseError = r
-    (+) _ r          = r
+    (+) r _          = r
  
 instance Functor (Parser a) where
     fmap f m = liftM f m