Changeset 6793 for src/Unicode.hs

Timestamp:

09/06/05 14:11:41 (3 years ago)

Author:

autrijus

Message:

* massive retab for src/, expanding all tabs into spaces,

except for the generated PIL1.hs.

Files:

• src/Unicode.hs (modified) (4 diffs)

src/Unicode.hs

@@ -44 +44 @@
 import GHC.Base
 import GHC.Real  (fromIntegral)
-import GHC.Num   (fromInteger)
+import GHC.Num   (fromInteger)
 import GHC.Read
 import GHC.Show
@@ -147 +147 @@
 -- corresponding to the ASCII character set.
 isAscii                 :: Char -> Bool
-isAscii c               =  c <  '\x80'
+isAscii c               =  c <  '\x80'
 
 -- | Selects the first 256 characters of the Unicode character set,
@@ -172 +172 @@
 -- Done with explicit equalities both for efficiency, and to avoid a tiresome
 -- recursion with GHC.List elem
-isSpace c               =  c == ' '     ||
-                           c == '\t'    ||
-                           c == '\n'    ||
-                           c == '\r'    ||
-                           c == '\f'    ||
-                           c == '\v'    ||
-                           c == '\xa0'  ||
-                           iswspace (fromIntegral (ord c)) /= 0
+isSpace c               =  c == ' '     ||
+                           c == '\t'    ||
+                           c == '\n'    ||
+                           c == '\r'    ||
+                           c == '\f'    ||
+                           c == '\v'    ||
+                           c == '\xa0'  ||
+                           iswspace (fromIntegral (ord c)) /= 0
 
 -- | Selects alphabetic Unicode characters (letters) that are not lower-case.
@@ -204 +204 @@
 -- | Selects ASCII octal digits, i.e. @\'0\'@..@\'7\'@.
 isOctDigit              :: Char -> Bool
-isOctDigit c            =  c >= '0' && c <= '7'
+isOctDigit c            =  c >= '0' && c <= '7'
 
 -- | Selects ASCII hexadecimal digits,
 -- i.e. @\'0\'@..@\'9\'@, @\'a\'@..@\'f\'@, @\'A\'@..@\'F\'@.
 isHexDigit              :: Char -> Bool
-isHexDigit c            =  isDigit c || c >= 'A' && c <= 'F' ||
+isHexDigit c            =  isDigit c || c >= 'A' && c <= 'F' ||
                                         c >= 'a' && c <= 'f'