libraries/base/cbits/SetEnv.c


1
2
3
4
5
6
7
8
9
10
11

#include "HsBase.h"
#ifdef HAVE_UNSETENV
int __hsbase_unsetenv(const char *name) {
#ifdef UNSETENV_RETURNS_VOID
    unsetenv(name);
    return 0;
#else
    return unsetenv(name);
#endif
}
#endif