Spike lamdera live in --optimize-legible mode

Author: supermario

builder/src/Generate.hs

@@ -101,9 +101,10 @@ repl root details ansi (Build.ReplArtifacts home modules localizer annotations)
 
 checkForDebugUses :: Objects -> Task ()
 checkForDebugUses (Objects _ locals) =
-  case Map.keys (Map.filter Nitpick.hasDebugUses locals) of
-    []   -> return ()
-    m:ms -> Task.throw (Exit.GenerateCannotOptimizeDebugValues m ms)
+  return ()
+  -- case Map.keys (Map.filter Nitpick.hasDebugUses locals) of
+  --   []   -> return ()
+  --   m:ms -> Task.throw (Exit.GenerateCannotOptimizeDebugValues m ms)
 
 
 

extra/Lamdera/Injection.hs

@@ -79,7 +79,7 @@ behaviors and limitations.
 See extra/Lamdera/ReverseProxy.hs for the proxy itself
 -}
 modifiedHttp_toTask isProd =
-  onlyIf (not isProd)
+  -- onlyIf (not isProd)
     -- Identical to original except for alterIfProxyRequired addition
     [text|
 
@@ -314,6 +314,18 @@ injections isBackend isLocalDev =
           fns: fns
         } : {};
       }
+
+    // Restore Debug.* from dev mode to see what happens
+    // $$elm$$core$$Debug$$log = _Debug_log_UNUSED;
+    $$elm$$core$$Debug$$log = F2(function(tag, value)
+      {
+        console.log(tag + ': ', value);
+        return value;
+      });
+    // $$elm$$core$$Debug$$toString = _Debug_toString_UNUSED;
+
+    // debugger
+
   |]
 
   --   // https://github.com/elm/bytes/issues/20

terminal/src/Develop.hs

@@ -250,6 +250,7 @@ serveElm sentryCache path =
 compileToBuilder :: FilePath -> IO BS.ByteString
 compileToBuilder path =
   do
+      _ <- Lamdera.enableLongNames
       result <- compile path
 
       pure $
@@ -311,7 +312,7 @@ compile path =
                 Lamdera.PostCompile.check details artifacts Exit.ReactorBadBuild
                 Lamdera.TypeHash.buildCheckHashes artifacts
 
-                javascript <- Task.mapError Exit.ReactorBadGenerate $ Generate.dev root details artifacts
+                javascript <- Task.mapError Exit.ReactorBadGenerate $ Generate.prod root details artifacts
                 let (NE.List name _) = Build.getRootNames artifacts
                 return $ Html.sandwich root name javascript