Char.lhs 1.01 KB
Newer Older
1
% -----------------------------------------------------------------------------
2
% $Id: Char.lhs,v 1.8 2000/12/11 17:51:34 simonmar Exp $
3
%
4
% (c) The University of Glasgow, 1994-2000
5
6
7
8
%
\section[Char]{Module @Char@}

\begin{code}
9
10
{-# OPTIONS -fno-implicit-prelude #-}

sof's avatar
sof committed
11
12
module Char 
    ( 
sof's avatar
sof committed
13
      Char
sof's avatar
sof committed
14

sof's avatar
sof committed
15
16
17
18
    , isAscii, isLatin1, isControl
    , isPrint, isSpace,  isUpper
    , isLower, isAlpha,  isDigit
    , isOctDigit, isHexDigit, isAlphaNum  -- :: Char -> Bool
sof's avatar
sof committed
19

sof's avatar
sof committed
20
    , toUpper, toLower  -- :: Char -> Char
sof's avatar
sof committed
21

sof's avatar
sof committed
22
23
24
25
26
27
28
29
30
31
32
33
    , digitToInt        -- :: Char -> Int
    , intToDigit        -- :: Int  -> Char

    , ord               -- :: Char -> Int
    , chr               -- :: Int  -> Char
    , readLitChar       -- :: ReadS Char 
    , showLitChar       -- :: Char -> ShowS
    , lexLitChar	-- :: ReadS String

    , String

     -- Implementation checked wrt. Haskell 98 lib report, 1/99.
sof's avatar
sof committed
34
    ) where
35

andy's avatar
andy committed
36
#ifndef __HUGS__
37
import PrelBase
38
import PrelShow
sof's avatar
sof committed
39
import PrelRead (readLitChar, lexLitChar, digitToInt)
andy's avatar
andy committed
40
41
42
#else
isLatin1 c = True
#endif
sof's avatar
sof committed
43
\end{code}