testsuite/tests/lib/Char/readLitChar.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Main (main)
where

import Data.Char (digitToInt, lexLitChar, readLitChar)

main :: IO ()
main =
    do putStrLn (show $ readLitChar "A")
       putStrLn (show $ readLitChar "'A'")
       putStrLn (show $ lexLitChar "A")
       putStrLn (show $ lexLitChar "'A'")