From: simonmar <unknown>
Date: Fri, 12 Nov 2004 15:14:17 +0000 (+0000)
Subject: [project @ 2004-11-12 15:14:17 by simonmar]
X-Git-Tag: nhc98-1-18-release~193
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b8aa439a9361fdcc59c722df8c8ed3ca31e91105;p=ghc-base.git

[project @ 2004-11-12 15:14:17 by simonmar]
Note Haskell 98 divergence in isAlpha.
---

diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs
index a98ce24..5b7d47b 100644
--- a/GHC/Unicode.hs
+++ b/GHC/Unicode.hs
@@ -77,6 +77,15 @@ isUpper                 :: Char -> Bool
 isLower                 :: Char -> Bool
 
 -- | Selects alphabetic Unicode characters (letters).
+--
+-- Note: the Haskell 98 definition of 'isAlpha' is:
+--
+-- >   isAlpha c = isUpper c || isLower c
+--
+-- the implementation here diverges from the Haskell 98
+-- definition in the sense that Unicode alphabetic characters which
+-- are neither upper nor lower case will still be identified as
+-- alphabetic by 'isAlpha'.
 isAlpha                 :: Char -> Bool
 
 -- | Selects alphabetic or numeric digit Unicode characters.