Fix for the GHCJS_BROWSER compilation flag of GHC JavaScript backend.

Refer to: https://gitlab.haskell.org/ghc/ghc/-/issues/25613#note_602330
haskell · Dec 31, 2024 · 222cbde · 222cbde
1 parent 74ae1c0
commit 222cbde
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/jsbits/time.js b/jsbits/time.js
@@ -1,4 +1,9 @@
+//#OPTIONS: CPP
+
 function h$js_futimes(fd,atime,mtime) {
+#ifdef GHCJS_BROWSER
+    throw "h$js_futimes unsupported";
+#else
   if (!h$isNode()) {
     throw "h$js_futimes unsupported";
   }
@@ -9,9 +14,13 @@ function h$js_futimes(fd,atime,mtime) {
     return -1;
   }
   return 0;
+#endif
 }
 
 function h$js_utimes(path,path_offset,atime,mtime) {
+#ifdef GHCJS_BROWSER
+    throw "h$js_utimes unsupported";
+#else
   if (!h$isNode()) {
     throw "h$js_utimes unsupported";
   }
@@ -23,9 +32,13 @@ function h$js_utimes(path,path_offset,atime,mtime) {
     return -1;
   }
   return 0;
+#endif
 }
 
 function h$js_lutimes(path,path_offset,atime,mtime) {
+#ifdef GHCJS_BROWSER
+    throw "h$js_lutimes unsupported";
+#else
   if (!h$isNode()) {
     throw "h$js_lutimes unsupported";
   }
@@ -37,5 +50,6 @@ function h$js_lutimes(path,path_offset,atime,mtime) {
     return -1;
   }
   return 0;
+#endif
 }