[project @ 2000-03-23 17:45:17 by simonpj]

[ghc-hetmet.git] / ghc / tests / io / should_run / io013.hs

diff --git a/ghc/tests/io/should_run/io013.hs b/ghc/tests/io/should_run/io013.hs
index e4249d8..a59921e 100644 (file)
--- a/ghc/tests/io/should_run/io013.hs
+++ b/ghc/tests/io/should_run/io013.hs
@@ -1,18 +1,22 @@
+-- If you're testing on a Win32 box, be aware that
+-- line termination conventions differ (and that
+-- io013 uses /dev/null, which is also unix centric.)
+
 import IO -- 1.3
 
-main = 
-    openFile "io013.in" ReadMode >>= \ h ->
-    hFileSize h >>= \ sz -> 
-    print sz >>
-    hSeek h SeekFromEnd (-3) >>
-    hGetChar h >>= \ x ->
-    putStr (x:"\n") >>
-    hSeek h RelativeSeek (-2) >>
-    hGetChar h >>= \ w ->
-    putStr (w:"\n") >>
-    hIsSeekable h >>= \ True ->
-    hClose h >>
-    openFile "/dev/null" ReadMode >>= \ h ->
-    hIsSeekable h >>= \ False ->
+main = do
+    h  <- openFile "io013.in" ReadMode
+    sz <- hFileSize h
+    print sz
+    hSeek h SeekFromEnd (-3)
+    x <- hGetChar h
+    putStr (x:"\n")
+    hSeek h RelativeSeek (-2)
+    w <- hGetChar h
+    putStr (w:"\n")
+    ~True <- hIsSeekable h
+    hClose h
+    h <- openFile "/dev/null" ReadMode
+    ~False <- hIsSeekable h
     hClose h
-    
+