feat: Initial effect type (#55)

examples/hello/hello.fs

@@ -74,7 +74,7 @@ let tick model (tick: Time.FrameTime) =
         |> handleCollisionWithPaddle model.paddle1 
         |> handleCollisionWithPaddle model.paddle2)
 
-    ( { model with ball = newBall; counter = model.counter + 3 }, Effect.none ) 
+    ( { model with ball = newBall; counter = model.counter + 3 }, Effect.none () ) 
 
 open Fable.Core.Rust
 

runtime/functor-runtime-common/src/effect.rs

@@ -0,0 +1,15 @@
+#[derive(Clone)]
+pub enum Effect<T: Clone + 'static> {
+    None,
+    Wrapped(T),
+}
+
+impl<T: Clone + 'static> Effect<T> {
+    pub fn none() -> Effect<T> {
+        Effect::None
+    }
+
+    pub fn wrapped(data: T) -> Effect<T> {
+        Effect::Wrapped(data)
+    }
+}

runtime/functor-runtime-common/src/lib.rs

@@ -50,6 +50,7 @@ impl OpaqueState {
 
 pub mod animation;
 pub mod asset;
+mod effect;
 mod frame_time;
 pub mod geometry;
 pub mod io;
@@ -63,6 +64,7 @@ mod shader;
 mod shader_program;
 pub mod texture;
 
+pub use effect::*;
 pub use frame_time::*;
 pub use render_context::*;
 pub use scene3d::*;

src/Functor.Game/Effect.fs

@@ -1,9 +1,11 @@
 namespace Functor
+open Fable.Core
 
-type effect<'msg> =
-    | Noop
-    | Function of (unit -> unit)
-    | FunctionWithDispatch of (('msg -> unit) -> unit)
+[<Erase; Emit("functor_runtime_common::Effect<$0>")>] type effect<'msg> = | Noop
 
 module Effect = 
-    let none = Noop
+    [<Emit("functor_runtime_common::Effect::none()")>]
+    let none (): effect<_> = nativeOnly
+
+    [<Emit("functor_runtime_common::Effect::wrapped($0)")>]
+    let wrapped a: 'a -> effect<'a> = nativeOnly

src/Functor.Game/Functor.Game.fsproj

@@ -4,7 +4,6 @@
     <TargetFramework>net8.0</TargetFramework>
   </PropertyGroup>
   <ItemGroup>
-    <Compile Include="Effect.fsi" />
     <Compile Include="Effect.fs" />
     <Compile Include="Math/Angle.fs" />
     <Compile Include="Math/Vector2.fs" />

src/Functor.Game/Game.fs

@@ -20,10 +20,10 @@ open Fable.Core
 module GameBuilder =
 
     let local initialState =
-        let update model msg = (model, Effect.none)
-        let tick model tick = (model, Effect.none)
+        let update model msg = (model, Effect.none ())
+        let tick model tick = (model, Effect.none ())
         let draw3d model frametime = Graphics.Scene3D.cube()
-        let input model input = (model, Effect.none)
+        let input model input = (model, Effect.none ())
         { initialState = initialState; update = update; tick = tick; input = input; draw3d = draw3d}
 
     let update<'model, 'msg> (f: UpdateFn<'model, 'msg>) (game: Game<'model, 'msg>) =