Opened 7 years ago

Last modified 7 years ago

#2097 closed merge

bug in regEnumKeys (System.Win32.Registry) — at Initial Version

Reported by: MagnusTherning Owned by:
Priority: normal Milestone: 6.8.3
Component: libraries (other) Version: 6.8.2
Keywords: Cc:
Operating System: Windows Architecture: Unknown/Multiple
Type of failure: Test Case:
Blocked By: Blocking:
Related Tickets: Differential Revisions:

Description

The following code throws a segmentation fault:

module Main where

import System.Win32.Registry

listRegistry p = do

putStrLn $ "HKLM
" ++ p
hkey <- regOpenKey hKEY_LOCAL_MACHINE p
sub_paths <- regEnumKeys hkey
let full_subs = map ((p ++ "
") ++) sub_paths
mapM_ listRegistry full_subs


main = do

mapM_ listRegistry SOFTWARE\\JavaSoft?

Change History (0)

Note: See TracTickets for help on using tickets.