X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fdsd-paper.git;a=blobdiff_plain;f=c%CE%BBash.lhs;h=e824b76d59fc75493b62a462621dd4d031479327;hp=a00112f0d952d111a717545b7671f13d9034bcf2;hb=cdeb73b9c1117a3ad288691c40a81a7f96845fe7;hpb=7cb88fed6c2a571734a067b5de6bf3ec7fd360af

diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs"
index a00112f..e824b76 100644
--- "a/c\316\273ash.lhs"
+++ "b/c\316\273ash.lhs"
@@ -538,13 +538,14 @@ mac a b c = add (mul a b) c
     matching and guards.
 
 \begin{verbatim}
-sumif pred a b = if pred == Eq && a == b || pred == Neq && a != b
-                 then a + b
-                 else 0
+sumif cmp a b = if cmp == Eq && a == b 
+                || cmp == Neq && a != b
+                then a + b
+                else 0
 \end{verbatim}
 
 \begin{verbatim}
-sumif pred a b = case pred of
+sumif cmp a b = case cmp of
   Eq -> case a == b of
     True -> a + b
     False -> 0