From 5c5c39d88f91c31314901d4bc2605e42e0948b16 Mon Sep 17 00:00:00 2001
From: gusthoff <gusthoff@gusthoff.com>
Date: Sun, 13 Oct 2024 13:33:37 +0200
Subject: [PATCH] Adding default value for the discriminant

---
 content/courses/advanced-ada/parts/data_types/records.rst | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/content/courses/advanced-ada/parts/data_types/records.rst b/content/courses/advanced-ada/parts/data_types/records.rst
index db26e6986..1ecad355f 100644
--- a/content/courses/advanced-ada/parts/data_types/records.rst
+++ b/content/courses/advanced-ada/parts/data_types/records.rst
@@ -2951,7 +2951,7 @@ statement. For example:
           V : Float;
        end record;
 
-       type Device (State : Device_State) is
+       type Device (State : Device_State := Off) is
        record
           case State is
              when Off =>