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
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
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
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