wasm: fix build

Author: rockofox

lib/Ffi.hs

@@ -2,6 +2,7 @@
 
 module Ffi where
 
+#ifdef FFI
 import Foreign.Ptr (FunPtr)
 
 #if defined(mingw32_HOST_OS)
@@ -68,3 +69,4 @@ dynLibOpen = loadLibrary
 #else
 dynLibOpen x = dlopen x [RTLD_NOW]
 #endif
+#endif

lib/VM.hs

@@ -23,19 +23,19 @@ import Debug.Trace
 import GHC.Generics (Generic)
 import System.Random (randomIO)
 #ifdef FFI
-import Foreign.LibFFI
-import Foreign.Marshal.Array
-import Foreign.C.Types (CInt, CFloat, CChar)
-import Foreign.C.String (castCharToCChar)
 import Ffi
 import Foreign.LibFFI.Base (newStorableStructArgRet, newStructCType)
 import Foreign.LibFFI.FFITypes
-import Foreign.Storable
-import Foreign.Ptr
+import Foreign.LibFFI
 #endif
 
 import Data.Binary qualified (get, put)
 import Foreign.C (CDouble, newCString)
+import Foreign.C.String (castCharToCChar)
+import Foreign.C.Types (CChar, CFloat, CInt)
+import Foreign.Marshal.Array
+import Foreign.Ptr
+import Foreign.Storable
 import GHC.IO (unsafePerformIO)
 import GHC.Int qualified as Ghc.Int
 

wasm_reactor/deploy_new_fiddle.sh

@@ -1,5 +1,6 @@
 #!/bin/bash
 ./build-wasm.sh
+GITREV=$(git rev-parse --short HEAD)
 cd ../../indigo-fiddle || exit
-git commit -m "Deploying new fiddle" indigo-init.wasm indigo-lib
+git commit -m "Update fiddle to indigo@$GITREV" indigo-init.wasm indigo-lib
 git push