diff --git a/canvas2d/Main.hs b/canvas2d/Main.hs
--- a/canvas2d/Main.hs
+++ b/canvas2d/Main.hs
@@ -71,7 +71,7 @@
   drawImage sun 0 0 300 300 ctx
   pure GetTime
 
-#ifndef ghcjs_HOST_OS
+#ifdef javascript_HOST_ARCH
 foreign import javascript unsafe "((x) => { x.globalCompositeOperation = 'destination-over'; })"
   setGlobalCompositeOperation :: Context -> IO ()
 
diff --git a/file-reader/Main.hs b/file-reader/Main.hs
--- a/file-reader/Main.hs
+++ b/file-reader/Main.hs
@@ -13,7 +13,7 @@
 import           Control.Concurrent.MVar
 
 import GHCJS.Types
-#ifndef ghcjs_HOST_OS
+#ifdef javascript_HOST_ARCH
 import GHC.JS.Foreign.Callback
 #else
 import GHCJS.Foreign.Callback
@@ -76,7 +76,7 @@
       , div_ [] [ text info ]
       ]
 
-#ifndef ghcjs_HOST_OS
+#ifdef javascript_HOST_ARCH
 foreign import javascript unsafe "(() => { return new FileReader(); })"
   newReader :: IO JSVal
 
diff --git a/miso-examples.cabal b/miso-examples.cabal
--- a/miso-examples.cabal
+++ b/miso-examples.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                miso-examples
-version:             1.8.6.0
+version:             1.8.7.0
 category:            Web, Miso, Data Structures
 author:              David M. Johnson <code@dmj.io>
 maintainer:          David M. Johnson <code@dmj.io>
diff --git a/three/Main.hs b/three/Main.hs
--- a/three/Main.hs
+++ b/three/Main.hs
@@ -98,7 +98,7 @@
 updateModel _ (SetTime m) _ =
   m <# pure GetTime
 
-#ifndef ghcjs_HOST_OS
+#ifdef javascript_HOST_ARCH
 foreign import javascript unsafe "(() => { return new Stats(); })"
   newStats :: IO JSVal