[commit: base] master: Remove some commented out code (d277e19)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d277e19b91024ba8412efd1ffd83ec3772ea6010

>---------------------------------------------------------------

commit d277e19b91024ba8412efd1ffd83ec3772ea6010
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon May 21 20:16:54 2012 +0100

    Remove some commented out code
    
    Commented out since 2005, so doesn't seem worth maintaining it

>---------------------------------------------------------------

 GHC/Unicode.hs |   46 +---------------------------------------------
 1 files changed, 1 insertions(+), 45 deletions(-)

diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs
index 9de8ea4..429767d 100644
--- a/GHC/Unicode.hs
+++ b/GHC/Unicode.hs
@@ -130,9 +130,7 @@ toTitle                 :: Char -> Char
 
 -- -----------------------------------------------------------------------------
 -- Implementation with the supplied auto-generated Unicode character properties
--- table (default)
-
-#if 1
+-- table
 
 -- Regardless of the O/S and Library, use the functions contained in WCsubst.c
 
@@ -181,45 +179,3 @@ foreign import ccall unsafe "u_towtitle"
 foreign import ccall unsafe "u_gencat"
   wgencat :: CInt -> CInt
 
--- -----------------------------------------------------------------------------
--- No libunicode, so fall back to the ASCII-only implementation (never used, indeed)
-
-#else
-
-isControl c             =  c < ' ' || c >= '\DEL' && c <= '\x9f'
-isPrint c               =  not (isControl c)
-
--- The upper case ISO characters have the multiplication sign dumped
--- randomly in the middle of the range.  Go figure.
-isUpper c               =  c >= 'A' && c <= 'Z' ||
-                           c >= '\xC0' && c <= '\xD6' ||
-                           c >= '\xD8' && c <= '\xDE'
--- The lower case ISO characters have the division sign dumped
--- randomly in the middle of the range.  Go figure.
-isLower c               =  c >= 'a' && c <= 'z' ||
-                           c >= '\xDF' && c <= '\xF6' ||
-                           c >= '\xF8' && c <= '\xFF'
-
-isAlpha c               =  isLower c || isUpper c
-isAlphaNum c            =  isAlpha c || isDigit c
-
--- Case-changing operations
-
-toUpper c@(C# c#)
-  | isAsciiLower c    = C# (chr# (ord# c# -# 32#))
-  | isAscii c         = c
-    -- fall-through to the slower stuff.
-  | isLower c   && c /= '\xDF' && c /= '\xFF'
-  = unsafeChr (ord c `minusInt` ord 'a' `plusInt` ord 'A')
-  | otherwise
-  = c
-
-
-toLower c@(C# c#)
-  | isAsciiUpper c = C# (chr# (ord# c# +# 32#))
-  | isAscii c      = c
-  | isUpper c      = unsafeChr (ord c `minusInt` ord 'A' `plusInt` ord 'a')
-  | otherwise      =  c
-
-#endif
-