From a17ea205c7d90f69317f55eed2c770b802b2094d Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Sat, 7 Sep 2024 22:56:42 -0700
Subject: [PATCH] Clear 'Failed' flag when input changes

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
---
 src/Main.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)