diff options
| author | Tamar Christina <tamar@zhox.com> | 2020-10-06 09:53:16 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-09 08:51:30 -0400 |
| commit | dfaef1cae7a4a0cb8783933274dae7f39d7165a0 (patch) | |
| tree | 1b2f10be1c7953bd03608f02cf8daaab0f66f976 | |
| parent | 0fd3d360cab977e00fb6d90d0519962227b029bb (diff) | |
| download | haskell-dfaef1cae7a4a0cb8783933274dae7f39d7165a0.tar.gz | |
winio: fixed more data error.
| -rw-r--r-- | libraries/base/GHC/IO/Windows/Handle.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/Windows/Handle.hsc b/libraries/base/GHC/IO/Windows/Handle.hsc index 7b39691181..ba7f4d1488 100644 --- a/libraries/base/GHC/IO/Windows/Handle.hsc +++ b/libraries/base/GHC/IO/Windows/Handle.hsc @@ -437,7 +437,7 @@ hwndRead hwnd ptr offset bytes | err == #{const STATUS_END_OF_FILE} = Mgr.ioSuccess 0 | err == #{const ERROR_BROKEN_PIPE} = Mgr.ioSuccess 0 | err == #{const STATUS_PIPE_BROKEN} = Mgr.ioSuccess 0 - | err == #{const ERROR_NO_MORE_ITEMS} = Mgr.ioSuccess 0 + | err == #{const ERROR_NO_MORE_ITEMS} = Mgr.ioSuccess $ fromIntegral dwBytes | err == #{const ERROR_MORE_DATA} = Mgr.ioSuccess $ fromIntegral dwBytes | otherwise = Mgr.ioFailed err |