Moved Finished_Tokens and related types to Tokens package

1 files changed, 7 insertions, 1 deletions

diff --git a/example/sentence.adb b/example/sentence.adb
index f522b5f..5270d3a 100644
--- a/example/sentence.adb
+++ b/example/sentence.adb
@@ -115,12 +115,18 @@ begin
 
     Put_Line ("Lexer token output:");
     for T of Lexed_Tokens loop
-        Put (My_Rat.Lexer_Traits.Tokens.Debug_String (T));
+        Put (My_Rat.Lexer_Tokens.Debug_String (T));
     end loop;
     New_Line;
 
     Put_Line ("Parser graph output:");
     Put_Line (My_Rat.Parse_Graphs.Debug_String (Result_Graph));
+    New_Line;
+
+    Put_Line ("Root tokens:");
+    for T of Result_Graph.Root_Elements loop
+        Put (My_Rat.Parser_Tokens.Debug_String (T));
+    end loop;
 
 
 end Sentence;