X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FHsVersions.h;h=14f14233fff58e588e90634f0e7b8bdd481b1d24;hb=6ee9554a738c442719ded861504acb729fd3d431;hp=1ba8a010224ab07f8d289398c7c67318c66e883e;hpb=30c122df62ec75f9ed7f392f24c2925675bf1d06;p=ghc-hetmet.git diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 1ba8a01..14f1423 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -60,14 +60,6 @@ name = Util.global (value); #define WARN(e,msg) if False && (e) then pprPanic "WARN" (msg) else #endif -#if defined(__GLASGOW_HASKELL__) -#define SLIT(x) (FastString.mkLitString# (x#)) -#define FSLIT(x) (FastString.mkFastString# (x#)) -#else -#define SLIT(x) (FastString.mkLitString (x)) -#define FSLIT(x) (FastString.mkFastString (x)) -#endif - -- Useful for declaring arguments to be strict #define STRICT1(f) f a | a `seq` False = undefined #define STRICT2(f) f a b | a `seq` b `seq` False = undefined