Skip to content

Avoid duplicate Platform initializer in generated JavaScript #98

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
derrickbeining wants to merge 1 commit into from
Closed

Avoid duplicate Platform initializer in generated JavaScript #98

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
64 changes: 43 additions & 21 deletions extra/Lamdera/Injection.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -61,36 +61,58 @@ versionsComment =

graphModifications :: Mode.Mode -> Mains -> Map.Map Opt.Global Opt.Node -> Map.Map Opt.Global Opt.Node
graphModifications mode mains graph = do
if mains & mainsInclude ["Lamdera.Live"]
then graph & Map.mapWithKey (modify $ isOptimizedMode mode)
-- & inspect
else graph
graph
& Map.mapWithKey (modify (mains & mainsInclude ["Lamdera.Live"]) $ isOptimizedMode mode)
-- & inspect


modify :: Bool -> Opt.Global -> Opt.Node -> Opt.Node
modify isOptimized v n =
modify :: Bool -> Bool -> Opt.Global -> Opt.Node -> Opt.Node
modify isLamderaLive isOptimized v n =
case (v, n) of
(Opt.Global (ModuleName.Canonical (Pkg.Name "elm" "kernel") name) _, Opt.Kernel chunks deps)
| name `elem` ["Browser", "Debugger", "Platform"] ->
Opt.Kernel (chunks & fmap renameLamderaPlatformInitialize) deps

(Opt.Global (ModuleName.Canonical (Pkg.Name "elm" "kernel") "Http") name, Opt.Kernel chunks deps) ->
let newChunks =
chunks & fmap (\chunk ->
case chunk of
Elm.Kernel.JS bs | bs & Text.decodeUtf8 & Text.isInfixOf "var _Http_toTask =" ->
bs
& Text.decodeUtf8
& Text.replace "var _Http_toTask =" "var _Http_toTask_REPLACED ="
& (<>) (modifiedHttp_toTask isOptimized)
& Text.encodeUtf8
& Elm.Kernel.JS
_ ->
chunk
)
in
Opt.Kernel newChunks deps
if not isLamderaLive then
n
else
let newChunks =
chunks & fmap (\chunk ->
case chunk of
Elm.Kernel.JS bs | bs & Text.decodeUtf8 & Text.isInfixOf "var _Http_toTask =" ->
bs
& Text.decodeUtf8
& Text.replace "var _Http_toTask =" "var _Http_toTask_REPLACED ="
& (<>) (modifiedHttp_toTask isOptimized)
& Text.encodeUtf8
& Elm.Kernel.JS
_ ->
chunk
)
in
Opt.Kernel newChunks deps

_ ->
n


renameLamderaPlatformInitialize :: Elm.Kernel.Chunk -> Elm.Kernel.Chunk
renameLamderaPlatformInitialize chunk =
case chunk of
Elm.Kernel.JS bs ->
bs
& Text.decodeUtf8
& Text.replace "function _Platform_initialize(" "function _Platform_initialize_Lamdera("
& Text.replace "return _Platform_initialize(" "return _Platform_initialize_Lamdera("
& Text.replace "return __Platform_initialize(" "return _Platform_initialize_Lamdera("
& Text.encodeUtf8
& Elm.Kernel.JS

_ ->
chunk


{- Approach taken from cors-anywhere:
https://github.com/Rob--W/cors-anywhere/blame/master/README.md#L56

Expand Down