Commit 39ba82a9 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-10-16 15:07:21 by simonmar]

test the Show instance for HandlePosn.
parent 3dd2a62e
......@@ -21,6 +21,7 @@ main = do
hSetBinaryMode hOut True
#endif
bof <- hGetPosn hIn
putStrLn (show bof) -- you can show HandlePosns
copy hIn hOut
hSetPosn bof
copy hIn hOut
......
{loc=hGetPosn001.in,type=readable,binary=False,buffering=block (8192)} at position 0
123456789*123456789*123456789*123456789*123456789*123456789*123456789*12
1 2 3 4 5 6 7
123456789*123456789*123456789*123456789*123456789*123456789*123456789*12
......
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