Skip to content

Commit

Permalink
Remove old GHCJS support
Browse files Browse the repository at this point in the history
PR #137 included #ifdef __GHCJS__ for the old GHCJS.

ghcjs-base >= 0.8 is for the new GHC JS backend only.

If we need to update support for the old GHCJS version in the future we will need to create a branch from the 0.2.0.3 tag.
  • Loading branch information
hamishmack committed May 22, 2024
1 parent b6c0f11 commit 9f80848
Showing 1 changed file with 0 additions and 5 deletions.
5 changes: 0 additions & 5 deletions JavaScript/Web/AnimationFrame.hs
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,6 @@
{-# LANGUAGE JavaScriptFFI #-}
{-# LANGUAGE InterruptibleFFI #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE CPP #-}

{- |
Animation frames are the browser's mechanism for smooth animation.
Expand Down Expand Up @@ -65,11 +64,7 @@ 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 ()
Expand Down

0 comments on commit 9f80848

Please # to comment.