Commit d0d51ad9 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-04-01 16:39:56 by simonpj]

Add readLitChar test
parent 6fb61437
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test('readLitChar', normal, compile_and_run, [''])
module Main (main)
where
import Char (digitToInt, lexLitChar, readLitChar)
main :: IO ()
main =
do putStrLn (show $ readLitChar "A")
putStrLn (show $ readLitChar "'A'")
putStrLn (show $ lexLitChar "A")
putStrLn (show $ lexLitChar "'A'")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment