X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Fyard.icl;h=b5e3c61f885002285eab6d8c6fc38aa6bd189385;hb=43d45105726b3ad3e5cc5165f8c9b066ec8d2790;hp=bded7fb94b2c110c8230f7acf8692c8b91a07de2;hpb=40d54a0715006e2baab1704eef15eecc4076668b;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