diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-06-23 12:53:35 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:04 -0400 |
| commit | f0880a1daea4f3c9fa6fa4624914081f29736ea2 (patch) | |
| tree | 097ee4f385763fcac239434988d42897788e8730 | |
| parent | fa80782864895fe614e1b83416736014e68c8b35 (diff) | |
| download | haskell-f0880a1daea4f3c9fa6fa4624914081f29736ea2.tar.gz | |
winio: Remove historical todos
| -rw-r--r-- | libraries/base/GHC/IO/Handle/Windows.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libraries/base/GHC/IO/Handle/Windows.hs b/libraries/base/GHC/IO/Handle/Windows.hs index b310317bc1..19efbea3b5 100644 --- a/libraries/base/GHC/IO/Handle/Windows.hs +++ b/libraries/base/GHC/IO/Handle/Windows.hs @@ -69,7 +69,6 @@ mkConsoleHandle dev filepath ha_type buffered mb_codec nl finalizer other_side stdin :: Handle {-# NOINLINE stdin #-} stdin = unsafePerformIO $ do - -- ToDo: acquire lock enc <- getLocaleEncoding mkConsoleHandle Win.stdin "<stdin>" ReadHandle True (Just enc) nativeNewlineMode{-translate newlines-} @@ -79,7 +78,6 @@ stdin = unsafePerformIO $ do stdout :: Handle {-# NOINLINE stdout #-} stdout = unsafePerformIO $ do - -- ToDo: acquire lock enc <- getLocaleEncoding mkConsoleHandle Win.stdout "<stdout>" WriteHandle True (Just enc) nativeNewlineMode{-translate newlines-} @@ -89,7 +87,6 @@ stdout = unsafePerformIO $ do stderr :: Handle {-# NOINLINE stderr #-} stderr = unsafePerformIO $ do - -- ToDo: acquire lock enc <- getLocaleEncoding mkConsoleHandle Win.stderr "<stderr>" WriteHandle False{-stderr is unbuffered-} (Just enc) |