diff options
Diffstat (limited to 'libraries/base/GHC/IO/Handle.hs')
| -rw-r--r-- | libraries/base/GHC/IO/Handle.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/IO/Handle.hs b/libraries/base/GHC/IO/Handle.hs index 01c226dfbd..720eef575b 100644 --- a/libraries/base/GHC/IO/Handle.hs +++ b/libraries/base/GHC/IO/Handle.hs @@ -604,7 +604,7 @@ hSetBinaryMode handle bin = -- data is flushed first. hSetNewlineMode :: Handle -> NewlineMode -> IO () hSetNewlineMode handle NewlineMode{ inputNL=i, outputNL=o } = - withAllHandles__ "hSetNewlineMode" handle $ \h_@Handle__{..} -> + withAllHandles__ "hSetNewlineMode" handle $ \h_@Handle__{} -> do flushBuffer h_ return h_{ haInputNL=i, haOutputNL=o } @@ -705,7 +705,7 @@ dupHandleTo :: FilePath -> Maybe HandleFinalizer -> IO Handle__ dupHandleTo filepath h other_side - hto_@Handle__{haDevice=devTo,..} + hto_@Handle__{haDevice=devTo} h_@Handle__{haDevice=dev} mb_finalizer = do flushBuffer h_ case cast devTo of |