From: Michael D. Adams Date: Fri, 4 May 2007 14:23:25 +0000 (+0000) Subject: Fixed apparent typo in STRICT1(f) of HsVersions.h X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a6e486cfe0ea35e9744d99ea489f72f51f7d29e3;p=ghc-hetmet.git Fixed apparent typo in STRICT1(f) of HsVersions.h --- 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