diff options
| author | simonmar <unknown> | 1999-11-22 10:53:11 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-11-22 10:53:11 +0000 |
| commit | 6c6ca84c43c4da9f8cdaa044e5dac13b83af928e (patch) | |
| tree | 55381af7f48efe80f5a32a9b09f1124d21ebc7d1 /ghc/lib/std/IO.lhs | |
| parent | 25a1b0c316214c2bdd2d50549276d7443c57b0df (diff) | |
| download | haskell-6c6ca84c43c4da9f8cdaa044e5dac13b83af928e.tar.gz | |
[project @ 1999-11-22 10:53:11 by simonmar]
remove some irrelevant code
Diffstat (limited to 'ghc/lib/std/IO.lhs')
| -rw-r--r-- | ghc/lib/std/IO.lhs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs index c80aa7e5e6..7f0eb6ed95 100644 --- a/ghc/lib/std/IO.lhs +++ b/ghc/lib/std/IO.lhs @@ -428,9 +428,6 @@ writeLines obj buf bufLen initPos s = shoveString n ls = case ls of [] -> - if n == 0 then - setBufWPtr obj 0{-new pos-} - else do {- At the end of a buffer write, update the buffer position in the underlying file object, so that if the handle @@ -476,9 +473,6 @@ writeLines obj buf (I# bufLen) (I# initPos#) s = shoveString n ls = case ls of [] -> - if n ==# 0# then - setBufWPtr obj 0 - else do {- At the end of a buffer write, update the buffer position in the underlying file object, so that if the handle @@ -521,9 +515,6 @@ writeBlocks obj buf bufLen initPos s = shoveString n ls = case ls of [] -> - if n == 0 then - setBufWPtr obj (0::Int) - else do {- At the end of a buffer write, update the buffer position in the underlying file object, so that if the handle @@ -570,9 +561,6 @@ writeBlocks obj buf (I# bufLen) (I# initPos#) s = shoveString n ls = case ls of [] -> - if n ==# 0# then - setBufWPtr obj (0::Int) - else do {- At the end of a buffer write, update the buffer position in the underlying file object, so that if the handle |