import Data.Char
import Ratio
--import TRACE
+
+#if __GLASGOW_HASKELL__ >= 605
+import Data.Char ( GeneralCategory(..), generalCategory )
+#else
+import Compat.Unicode ( GeneralCategory(..), generalCategory )
+#endif
}
$unispace = \x05
other_graphic = '\x6'
adj_c
-#if __GLASGOW_HASKELL__ < 605
- = c -- no Unicode support
-#else
| c <= '\x06' = non_graphic
| c <= '\xff' = c
| otherwise =
OtherSymbol -> symbol
Space -> space
_other -> non_graphic
-#endif
-- This version does not squash unicode characters, it is used when
-- lexing strings.