From 1c5fee15e8f5a8e0db3f198d39badf19e63e9d8c Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Wed, 18 Sep 2013 10:40:12 +0200 Subject: Follow changes in [12a8244/ghc-prim] (#7633) --- testsuite/tests/polykinds/T6002.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'testsuite/tests/polykinds') diff --git a/testsuite/tests/polykinds/T6002.hs b/testsuite/tests/polykinds/T6002.hs index b21914b0ff..a7f09ef73a 100644 --- a/testsuite/tests/polykinds/T6002.hs +++ b/testsuite/tests/polykinds/T6002.hs @@ -61,7 +61,7 @@ toNat' n = case toNat' (n - 1) of -- Now we are ready to make Hidden Nat' an Integral type instance Eq (Hidden Nat') where -Hide a == Hide b = sameNat' a b + Hide a == Hide b = sameNat' a b instance Ord (Hidden Nat') where Hide Z `compare` Hide Z = EQ -- cgit v1.2.1