diff --git a/src/Main.elm b/src/Main.elm
index 634375f..d981790 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -320,12 +320,12 @@ update msg m =
         SetProgram prog -> ({ m | program = prog }, Cmd.none)
         SetRenderProgram prog -> ({ m | renderProgram = prog }, Cmd.none)
         SetInput input ->
-            ( { m | input = input }
+            ( { m | input = input, desugaredQuery = Requested }
             , requestDesugaring m.inputMode m.inputModes input
             )
         SetTab tab -> ({ m | tab = tab }, Cmd.none)
         SetInputMode mode ->
-            ( { m | inputMode = mode }
+            ( { m | inputMode = mode, desugaredQuery = Requested }
             , requestDesugaring mode m.inputModes m.input
             )
         SetResultMode mode -> ({ m | resultMode = mode }, Cmd.none)