Fix syntax for ghc js backend

ghcjs · May 14, 2024 · cb580ae · cb580ae
1 parent b35a3ab
commit cb580ae
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/JavaScript/Web/AnimationFrame.hs b/JavaScript/Web/AnimationFrame.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE JavaScriptFFI #-}
 {-# LANGUAGE InterruptibleFFI #-}
 {-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE CPP #-}
 
 {- |
      Animation frames are the browser's mechanism for smooth animation.
@@ -64,7 +65,11 @@ cancelAnimationFrame h = js_cancelAnimationFrame h
 
 foreign import javascript unsafe "(() => { return { handle: null, callback: null }; })"
   js_makeAnimationFrameHandle :: IO AnimationFrameHandle
+#ifdef __GHCJS__
 foreign import javascript unsafe "(() => { return { handle: null, callback: $1 }; })"
+#else
+foreign import javascript unsafe "(($1) => { return { handle: null, callback: $1 }; })"
+#endif
   js_makeAnimationFrameHandleCallback :: JSVal -> IO AnimationFrameHandle
 foreign import javascript unsafe "h$animationFrameCancel"
   js_cancelAnimationFrame :: AnimationFrameHandle -> IO ()