Reduce runtime expenses for delivering GZip compressed files

Expand the `SourceFiles` and `ElmMake` compilation interfaces to support blobs `gzip` encoding at compile time. Adapt one of the example apps to demonstrate using the new compilation interfaces.
pine-vm · Dec 7, 2021 · 5a63398 · 5a63398
1 parent 37b7241
commit 5a63398
Show file tree

Hide file tree

Showing 12 changed files with 997 additions and 803 deletions.
diff --git a/implement/elm-fullstack/ElmFullstack/compile-elm-program/elm.json b/implement/elm-fullstack/ElmFullstack/compile-elm-program/elm.json
@@ -19,6 +19,7 @@
             "elm-community/list-extra": "8.2.4",
             "elm-community/maybe-extra": "5.2.0",
             "elm-community/result-extra": "2.4.0",
+            "folkertdev/elm-flate": "2.0.5",
             "folkertdev/elm-sha2": "1.0.0",
             "mdgriffith/elm-ui": "1.1.8",
             "stil4m/elm-syntax": "7.2.8",
@@ -42,4 +43,4 @@
             "rtfeldman/elm-iso8601-date-strings": "1.1.3"
         }
     }
-}
+}
diff --git a/implement/elm-fullstack/ElmFullstack/compile-elm-program/src/CompileFullstackApp.elm b/implement/elm-fullstack/ElmFullstack/compile-elm-program/src/CompileFullstackApp.elm
diff --git a/implement/elm-fullstack/Program.cs b/implement/elm-fullstack/Program.cs
@@ -14,7 +14,7 @@ namespace elm_fullstack;
 
 public class Program
 {
-    static public string AppVersionId => "2021-12-06";
+    static public string AppVersionId => "2021-12-07";
 
     static int AdminInterfaceDefaultPort => 4000;
 

diff --git a/implement/elm-fullstack/elm-fullstack.csproj b/implement/elm-fullstack/elm-fullstack.csproj
@@ -5,8 +5,8 @@
     <TargetFramework>net6.0</TargetFramework>
     <RootNamespace>elm_fullstack</RootNamespace>
     <AssemblyName>elm-fs</AssemblyName>
-    <AssemblyVersion>2021.1206.0.0</AssemblyVersion>
-    <FileVersion>2021.1206.0.0</FileVersion>
+    <AssemblyVersion>2021.1207.0.0</AssemblyVersion>
+    <FileVersion>2021.1207.0.0</FileVersion>
   </PropertyGroup>
 
   <ItemGroup>

diff --git a/implement/example-apps/elm-editor/src/CompileFullstackApp.elm b/implement/example-apps/elm-editor/src/CompileFullstackApp.elm
diff --git a/implement/example-apps/rich-chat-room/src/Backend/Main.elm b/implement/example-apps/rich-chat-room/src/Backend/Main.elm
@@ -166,12 +166,12 @@ updateForHttpRequestEventWithoutPendingHttpRequests httpRequestEvent stateBefore
                         , bodyAsBase64 =
                             Just
                                 (if enableInspector then
-                                    CompilationInterface.ElmMake.elm_make____src_Frontend_Main_elm.debug.base64
+                                    CompilationInterface.ElmMake.elm_make____src_Frontend_Main_elm.debug.gzip.base64
 
                                  else
-                                    CompilationInterface.ElmMake.elm_make____src_Frontend_Main_elm.base64
+                                    CompilationInterface.ElmMake.elm_make____src_Frontend_Main_elm.gzip.base64
                                 )
-                        , headersToAdd = []
+                        , headersToAdd = [ { name = "Content-Encoding", values = [ "gzip" ] } ]
                         }
                     }
               ]

diff --git a/implement/example-apps/rich-chat-room/src/CompilationInterface/ElmMake.elm b/implement/example-apps/rich-chat-room/src/CompilationInterface/ElmMake.elm
@@ -4,8 +4,8 @@ module CompilationInterface.ElmMake exposing (..)
 -}
 
 
-elm_make____src_Frontend_Main_elm : { debug : { base64 : String }, base64 : String }
+elm_make____src_Frontend_Main_elm : { debug : { gzip : { base64 : String } }, gzip : { base64 : String } }
 elm_make____src_Frontend_Main_elm =
-    { base64 = "The compiler replaces this value."
-    , debug = { base64 = "The compiler replaces this value." }
+    { gzip = { base64 = "The compiler replaces this value." }
+    , debug = { gzip = { base64 = "The compiler replaces this value." } }
     }
diff --git a/...teractive-scenarios/read-source-file/context-app/src/CompilationInterface/SourceFiles.elm b/...teractive-scenarios/read-source-file/context-app/src/CompilationInterface/SourceFiles.elm
@@ -8,14 +8,11 @@ type alias Base64AndUtf8 =
     { utf8 : String, base64 : String }
 
 
-file__utf8____a_file_txt : String
-file__utf8____a_file_txt =
-    "The compiler replaces this value."
-
-
-file____a_file_txt : { utf8 : String }
+file____a_file_txt : { utf8 : String, gzip : { base64 : String } }
 file____a_file_txt =
-    { utf8 = "The compiler replaces this value." }
+    { utf8 = "The compiler replaces this value."
+    , gzip = { base64 = "The compiler replaces this value." }
+    }
 
 
 file____directory_file_alpha_txt : Base64AndUtf8

diff --git a/...ment/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/0/expected-value b/...ment/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/0/expected-value
diff --git a/implement/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/0/submission b/implement/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/0/submission
diff --git a/...ent/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/11/expected-value b/...ent/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/11/expected-value
@@ -0,0 +1 @@
+"H4sIAAAAAAAA/wXAMQ0AIAwEQCsvCgfkSUhIWX7ABQsjQqqnBmqh13iEMRfRt4kmxH/ptwAXT/clGAAAAA=="
diff --git a/implement/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/11/submission b/implement/test-elm-fullstack/elm-interactive-scenarios/read-source-file/steps/11/submission
@@ -0,0 +1 @@
+CompilationInterface.SourceFiles.file____a_file_txt.gzip.base64
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		"H4sIAAAAAAAA/wXAMQ0AIAwEQCsvCgfkSUhIWX7ABQsjQqqnBmqh13iEMRfRt4kmxH/ptwAXT/clGAAAAA=="
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		CompilationInterface.SourceFiles.file____a_file_txt.gzip.base64