Fix failing compilation on RankNTypes

6e508561 · Kai-Oliver Prott · ce6ffc72 · 6e508561
Commit 6e508561 authored Oct 02, 2019 by Kai-Oliver Prott
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

cpm/src/CPM/Diff/Behavior.curry cpm/src/CPM/Diff/Behavior.curry +1 -1

No files found.
--- a/cpm/src/CPM/Diff/Behavior.curry
+++ b/cpm/src/CPM/Diff/Behavior.curry
@@ -391,7 +391,7 @@ genTestFunction info groundequiv tm (isprod,f) =
 where
  (fmod,fname) = funcName f
  modName = "Compare"
-  both fun (a, a) = (fun a, fun a)
+  both fun (a, b) = (fun a, fun b)
  testName = "test_" ++
       combineTuple (both (replace' '.' '_') $ (fmod, encodeCurryId fname)) "_"
  testName1 = (modName, testName++"_1")