Show compiled JS based on query params only (#296)

* Show compiled JS based on query params only

* Add changelog entry

Author: JordanMartinez

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:
 

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_