Release version 3.7.0

Author: alfonsogarciacaro

CHANGELOG.md

@@ -6,6 +6,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## Unreleased
 
+## 3.7.0
+
+* Update Fable and make repl available (with warning) on mobile
+
 ## 3.4.10
 
 * Update Fable

src/App/Loader.fs

@@ -10,24 +10,12 @@ open Feliz.Bulma
 type Model =
     | Initializing
     | Running of Main.Model
-    | InvalidPlatform
+    | InvalidPlatform of Option<Router.Page>
 
 type Msg =
+    | Initialize of Option<Router.Page>
     | MainMsg of Main.Msg
 
-let update msg (model : Model) =
-    match model with
-    | Initializing -> model, Cmd.none
-
-    | Running model ->
-        match msg with
-        | MainMsg subMsg ->
-            let (mainModel, mainCmd) = Main.update subMsg model
-            Running mainModel, Cmd.map MainMsg mainCmd
-
-    | InvalidPlatform ->
-        model, Cmd.none
-
 let urlUpdate (result: Option<Router.Page>) model =
     let (model, cmd) =
         match model with
@@ -37,7 +25,7 @@ let urlUpdate (result: Option<Router.Page>) model =
 
         | Running model -> Running model, Cmd.ofMsg (MainMsg Main.UrlHashChange)
 
-        | InvalidPlatform -> InvalidPlatform, Cmd.none
+        | InvalidPlatform p -> InvalidPlatform p, Cmd.none
 
     match result with
     | None ->
@@ -57,9 +45,21 @@ let urlUpdate (result: Option<Router.Page>) model =
             model, Cmd.batch [ cmd
                                Cmd.ofMsg (MainMsg Main.Reset) ]
 
+let update msg (model : Model) =
+    match msg with
+    | Initialize p -> urlUpdate p Initializing
+
+    | MainMsg subMsg ->
+        match model with
+        | Initializing
+        | InvalidPlatform _ -> model, Cmd.none
+        | Running model ->
+            let (mainModel, mainCmd) = Main.update subMsg model
+            Running mainModel, Cmd.map MainMsg mainCmd
+
 let init (result: Option<Router.Page>) =
     if ReactDeviceDetect.exports.isMobile then
-        urlUpdate result InvalidPlatform
+        InvalidPlatform result |> urlUpdate result
     else
         urlUpdate result Initializing
 
@@ -71,7 +71,7 @@ let private view (model: Model) dispatch =
     | Running model ->
         Main.view model (MainMsg >> dispatch)
 
-    | InvalidPlatform ->
+    | InvalidPlatform p ->
         Html.div [
             Bulma.hero [
                 hero.isFullHeight
@@ -96,8 +96,18 @@ let private view (model: Model) dispatch =
 
                             Bulma.subtitle.h5 [
                                 text.hasTextCentered
-                                prop.text "is only available on desktop"
+                                prop.text "For best experience we recommend running the REPL on a desktop"
                             ]
+
+                            Bulma.level [
+                                Bulma.levelItem [
+                                    Bulma.button.a [
+                                        prop.onClick (fun _ -> Initialize p |> dispatch)
+                                        prop.text "Continue"
+                                    ]
+                                ]
+                            ]
+
                         ]
                     ]
                 ]

src/App/Main.fs

@@ -617,6 +617,9 @@ let workerCmd (worker : ObservableWorker<_>)=
             | CompilationFinished (jsCode, errors, stats) ->
                 Ok(jsCode, errors) |> EndCompile |> dispatch
                 UpdateStats stats |> dispatch
+            | CompilationsFinished (jsCode, errors, stats) ->
+                Ok(Array.last jsCode, errors) |> EndCompile |> dispatch
+                UpdateStats stats |> dispatch
             | CompilerCrashed msg -> Error msg |> EndCompile |> dispatch
             // Do nothing, these will be handled by .PostAndAwaitResponse
             | FoundTooltip _ -> ()

src/App/Prelude.fs

@@ -6,7 +6,7 @@ open Fable.Core
 
 [<RequireQualifiedAccess>]
 module Literals =
-    let [<Literal>] REPL_VERSION = "3.4.10" // Do not edit manually
+    let [<Literal>] REPL_VERSION = "3.7.0" // Do not edit manually
     let [<Literal>] STORAGE_KEY = "fable-repl"
     let [<Literal>] MAX_LOGS_LENGTH = 200
     // let [<Literal>] HOST =

src/App/Widgets/Stats.fs

@@ -35,9 +35,8 @@ let view (model : Model) =
             ]
 
             Html.tbody [
-                row "FCS checker" model.FCS_checker
-                row "FCS parsing" model.FCS_parsing
-                row "Fable transform" model.Fable_transform
+                row "FCS" model.FCS_parsing
+                row "Fable" model.Fable_transform
             ]
         ]
     ]