fix a duplicated word in failwith message

fsprojects · Apr 24, 2024 · 69a5db4 · 69a5db4
1 parent 824de42
commit 69a5db4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/FsYacc.Core/fsyaccdriver.fs b/src/FsYacc.Core/fsyaccdriver.fs
@@ -647,7 +647,7 @@ let writeSpecToFile (generatorState: GeneratorState) (spec: ParserSpec) (compile
 
     for id, startState in List.zip spec.StartSymbols compiledSpec.startStates do
         if not (types.ContainsKey id) then
-            failwith ("a %type declaration is required for for start token " + id)
+            failwith ("a %type declaration is required for start token " + id)
 
         let ty = types.[id] in
         writer.WriteLine "let %s lexer lexbuf : %s =" id ty