Enable "Save" button for compatible versions. Fixes #122

ellie-app · Apr 12, 2020 · 31b5bc7 · 31b5bc7
1 parent 045212b
commit 31b5bc7
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/assets/src/Elm/Version.elm b/assets/src/Elm/Version.elm
@@ -1,4 +1,4 @@
-module Elm.Version exposing (Version, compare, decoder, encoder, eq, fromString, toString)
+module Elm.Version exposing (Version, compare, compatible, decoder, encoder, eq, fromString, toString)
 
 import Json.Decode as Decode exposing (Decoder)
 import Json.Encode as Encode exposing (Value)
@@ -25,6 +25,11 @@ fromString str =
             Err "Expecting a version like MAJOR.MINOR.PATCH"
 
 
+compatible : Version -> Version -> Bool
+compatible left right =
+    ( left.major, left.minor ) == ( left.major, left.minor )
+
+
 eq : Version -> Version -> Bool
 eq left right =
     case compare left right of

diff --git a/assets/src/Pages/Editor/Views/Workbench.elm b/assets/src/Pages/Editor/Views/Workbench.elm
@@ -174,7 +174,7 @@ viewErrorsHeader pane config =
                             _ ->
                                 Button.none
                     }
-                , if Version.eq config.compilerVersion Compiler.version then
+                , if Version.compatible config.compilerVersion Compiler.version then
                     Just
                         { label =
                             if config.saving then
@@ -236,7 +236,7 @@ viewFinishedHeader pane canDebug config =
                             _ ->
                                 Button.none
                     }
-                , if Version.eq config.compilerVersion Compiler.version then
+                , if Version.compatible config.compilerVersion Compiler.version then
                     Just
                         { icon = Just Icon.Upload
                         , label = "Save"