X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FOccName.lhs;h=439a2f88313129eb09c845f6cb0179ef28607c89;hp=9ff53f13400af5a2b0cc9b81fe2e7e510d1a1a9b;hb=edc0bafd3fcd01b85a2e8894e5dfe149eb0e0857;hpb=4f37664780b85725ba3552b7de11c0e5e79d3fee;ds=sidebyside

diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs
index 9ff53f1..439a2f8 100644
--- a/compiler/basicTypes/OccName.lhs
+++ b/compiler/basicTypes/OccName.lhs
@@ -107,16 +107,6 @@ import Data.Char
 import Data.Data
 \end{code}
 
-\begin{code}
--- Unicode TODO: put isSymbol in libcompat
-#if !defined(__GLASGOW_HASKELL__) || __GLASGOW_HASKELL__ > 604
-#else
-isSymbol :: a -> Bool
-isSymbol = const False
-#endif
-
-\end{code}
-
 %************************************************************************
 %*									*
 \subsection{Name space}