diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-05-04 14:23:25 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-05-04 14:23:25 +0000 |
| commit | a6e486cfe0ea35e9744d99ea489f72f51f7d29e3 (patch) | |
| tree | fa4ea2f1db1ba37851af34ac46df53c1074ff56e /compiler/HsVersions.h | |
| parent | 6777144f7522d8db5935737e12fa451ca3211e6d (diff) | |
| download | haskell-a6e486cfe0ea35e9744d99ea489f72f51f7d29e3.tar.gz | |
Fixed apparent typo in STRICT1(f) of HsVersions.h
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index f11aa214c4..299ad68357 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 |