From 300ea661cc22e39ba6da6a52c77f5ca0c388466d 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 =>