/*
 * (c) The University of Glasgow, 2004
 */
#include <windows.h>
#include "HsFFI.h"

HKEY hiveKey( HsInt hive )
{
   switch(hive) {
    case 0: return HKEY_CLASSES_ROOT;
    case 1: return HKEY_CURRENT_USER;
    case 2: return HKEY_LOCAL_MACHINE;
    case 3: return HKEY_USERS;
    case 4: return HKEY_CURRENT_CONFIG;
   default:
     MessageBox (NULL, "RegAddEntry: weird hive", "RegAddEntry", MB_OK | MB_ICONINFORMATION );
     return NULL;
   }
}