diff options
author | Tamar Christina <tamar@zhox.com> | 2020-06-17 11:00:16 +0100 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:03 -0400 |
commit | b59430c00f41e18386bc44540180451169f6b9d7 (patch) | |
tree | cf0255f6530e15db523ac2768a73550b62a6c870 | |
parent | e06e6734a4d5c49c625605a2675c47fd93f834b2 (diff) | |
download | haskell-b59430c00f41e18386bc44540180451169f6b9d7.tar.gz |
winio: fix -werror issue in encoding file
-rw-r--r-- | libraries/base/GHC/IO/Windows/Encoding.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/IO/Windows/Encoding.hs b/libraries/base/GHC/IO/Windows/Encoding.hs index 2a0c3fb730..c0ee649662 100644 --- a/libraries/base/GHC/IO/Windows/Encoding.hs +++ b/libraries/base/GHC/IO/Windows/Encoding.hs @@ -75,13 +75,13 @@ encodeMultiByteIO' cp wstr transformer = encodeMultiByteIO :: CodePage -> String -> IO String encodeMultiByteIO _ "" = return "" encodeMultiByteIO cp s = encodeMultiByteIO' cp s toString - where toString (s,l) = peekCAStringLen (s,fromIntegral l) + where toString (st,l) = peekCAStringLen (st,fromIntegral l) -- converts [Char] to UTF-16 encodeMultiByteRawIO :: CodePage -> String -> IO (LPCSTR, CInt) encodeMultiByteRawIO _ "" = return (nullPtr, 0) encodeMultiByteRawIO cp s = encodeMultiByteIO' cp s toSizedCString - where toSizedCString (s,l) = return (s, fromIntegral l) + where toSizedCString (st,l) = return (st, fromIntegral l) foreign import WINDOWS_CCONV "WideCharToMultiByte" wideCharToMultiByte |