From a6e486cfe0ea35e9744d99ea489f72f51f7d29e3 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Fri, 4 May 2007 14:23:25 +0000 Subject: [PATCH] Fixed apparent typo in STRICT1(f) of HsVersions.h --- compiler/HsVersions.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index f11aa21..299ad68 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -67,7 +67,7 @@ import qualified FastString as FS #define FSLIT(x) (FS.mkFastString# (x#)) -- Useful for declaring arguments to be strict -#define STRICT1(f) f a b c | a `seq` False = undefined +#define STRICT1(f) f a | a `seq` False = undefined #define STRICT2(f) f a b | a `seq` b `seq` False = undefined #define STRICT3(f) f a b c | a `seq` b `seq` c `seq` False = undefined #define STRICT4(f) f a b c d | a `seq` b `seq` c `seq` d `seq` False = undefined -- 1.7.10.4