From 9c8ba01a0f1f2634eb9cece4fd7259b8134959a3 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 8 Nov 2008 14:45:44 +0000 Subject: [PATCH] Remove a CPP test that's always true (__GLASGOW_HASKELL__ >= 605) --- compiler/parser/Lexer.x | 2 -- 1 file changed, 2 deletions(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 952196a..ed2f64a 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -709,7 +709,6 @@ reservedSymsFM = listToUFM $ ,("-<<", ITLarrowtail, arrowsEnabled) ,(">>-", ITRarrowtail, arrowsEnabled) -#if __GLASGOW_HASKELL__ >= 605 ,("∷", ITdcolon, unicodeSyntaxEnabled) ,("⇒", ITdarrow, unicodeSyntaxEnabled) ,("∀", ITforall, \i -> unicodeSyntaxEnabled i && @@ -720,7 +719,6 @@ reservedSymsFM = listToUFM $ -- ToDo: ideally, → and ∷ should be "specials", so that they cannot -- form part of a large operator. This would let us have a better -- syntax for kinds: ɑ∷*→* would be a legal kind signature. (maybe). -#endif ] -- ----------------------------------------------------------------------------- -- 1.7.10.4