Fix openFile003 for Win64
[packages/base.git] / tests / readLitChar.hs
1 module Main (main)
2 where
3
4 import Data.Char (digitToInt, lexLitChar, readLitChar)
5
6 main :: IO ()
7 main =
8 do putStrLn (show $ readLitChar "A")
9 putStrLn (show $ readLitChar "'A'")
10 putStrLn (show $ lexLitChar "A")
11 putStrLn (show $ lexLitChar "'A'")
12