Commit 9c8ba01a authored by Ian Lynagh's avatar Ian Lynagh

Remove a CPP test that's always true (__GLASGOW_HASKELL__ >= 605)

parent 4295eeec
...@@ -709,7 +709,6 @@ reservedSymsFM = listToUFM $ ...@@ -709,7 +709,6 @@ reservedSymsFM = listToUFM $
,("-<<", ITLarrowtail, arrowsEnabled) ,("-<<", ITLarrowtail, arrowsEnabled)
,(">>-", ITRarrowtail, arrowsEnabled) ,(">>-", ITRarrowtail, arrowsEnabled)
#if __GLASGOW_HASKELL__ >= 605
,("∷", ITdcolon, unicodeSyntaxEnabled) ,("∷", ITdcolon, unicodeSyntaxEnabled)
,("⇒", ITdarrow, unicodeSyntaxEnabled) ,("⇒", ITdarrow, unicodeSyntaxEnabled)
,("∀", ITforall, \i -> unicodeSyntaxEnabled i && ,("∀", ITforall, \i -> unicodeSyntaxEnabled i &&
...@@ -720,7 +719,6 @@ reservedSymsFM = listToUFM $ ...@@ -720,7 +719,6 @@ reservedSymsFM = listToUFM $
-- ToDo: ideally, → and ∷ should be "specials", so that they cannot -- ToDo: ideally, → and ∷ should be "specials", so that they cannot
-- form part of a large operator. This would let us have a better -- form part of a large operator. This would let us have a better
-- syntax for kinds: ɑ∷*→* would be a legal kind signature. (maybe). -- syntax for kinds: ɑ∷*→* would be a legal kind signature. (maybe).
#endif
] ]
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment