Use correct (structural) type of equality

Co-authored-by: Johannes Emerich <johannes@emerich.de>
yfyf · Oct 23, 2024 · e852fef · e852fef
1 parent 02bd61a
commit e852fef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/controller/server/view/status_page.ml b/controller/server/view/status_page.ml
@@ -99,7 +99,7 @@ let suggested_action_of_state (update:Update.state) (rauc:rauc_state) booted_slo
             Some (Definition.description (
                 switch_to_newer_system_call target_slot
             ))
-        | (UpToDate {booted; inactive}, Status _) when booted != inactive ->
+        | (UpToDate {booted; inactive}, Status _) when booted <> inactive ->
             Some (Definition.description (
                 switch_to_older_system_call target_slot
             ))