Ticket #2097 (closed merge: fixed)
bug in regEnumKeys (System.Win32.Registry)
| Reported by: | MagnusTherning | Owned by: | igloo |
|---|---|---|---|
| Priority: | normal | Milestone: | 6.8.3 |
| Component: | libraries (other) | Version: | 6.8.2 |
| Keywords: | Cc: | ||
| Operating System: | Windows | Architecture: | Unknown/Multiple |
| Type of failure: | Difficulty: | Unknown | |
| Test Case: | Blocked By: | ||
| Blocking: | Related Tickets: |
Description (last modified by igloo) (diff)
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
Note: See
TracTickets for help on using
tickets.
