diff options
author | Tamar Christina <tamar@zhox.com> | 2021-12-28 15:06:16 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-01-15 03:41:55 -0500 |
commit | 0dc723957d0fdb5909f145405b775efea0fe2f6e (patch) | |
tree | f6ee9f0a8ec293c4d6b60e6d6cb8cdb7b67ec082 /libraries/base/GHC/IO | |
parent | e2b60be8472ad5b7b6ef2b265b4a06d1b2b67c7d (diff) | |
download | haskell-0dc723957d0fdb5909f145405b775efea0fe2f6e.tar.gz |
winio: fix heap corruption and various leaks.
Diffstat (limited to 'libraries/base/GHC/IO')
-rw-r--r-- | libraries/base/GHC/IO/Windows/Paths.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/Windows/Paths.hs b/libraries/base/GHC/IO/Windows/Paths.hs index 851dc37508..c755996f22 100644 --- a/libraries/base/GHC/IO/Windows/Paths.hs +++ b/libraries/base/GHC/IO/Windows/Paths.hs @@ -30,7 +30,7 @@ import GHC.IO import Foreign.C.String import Foreign.Marshal.Alloc (free) -foreign import WINDOWS_CCONV safe "__hs_create_device_name" +foreign import ccall safe "__hs_create_device_name" c_GetDevicePath :: CWString -> IO CWString -- | This function converts Windows paths between namespaces. More specifically |