diff --git a/CHANGELOG.md b/CHANGELOG.md index 12a83d1b..f17d2886 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -10,6 +10,7 @@ New features: Bugfixes: - Fix double `main` invocation (#295 by @JordanMartinez) +- Stop loading hang when using query params to show compiled JS output (#296 by @JordanMartinez) Other improvements: diff --git a/client/src/Try/Container.purs b/client/src/Try/Container.purs index adedf7e1..cb34b606 100644 --- a/client/src/Try/Container.purs +++ b/client/src/Try/Container.purs @@ -183,8 +183,9 @@ component = H.mkComponent Right res@(Right (CompileSuccess { js, warnings })) -> do { settings } <- H.get - if settings.showJs then + if settings.showJs then do H.liftEffect teardownIFrame + H.modify_ _ { compiled = Just res } else do for_ warnings \warnings_ -> do let anns = Array.mapMaybe (toAnnotation MarkerWarning) warnings_