From f34e3e87923d929d4a29eac28b43ee138a0aa49f Mon Sep 17 00:00:00 2001
From: John Ericson <John.Ericson@Obsidian.Systems>
Date: Fri, 20 Sep 2024 12:02:47 -0400
Subject: [PATCH] Remove redundant paramater

We're already taking the entire grammar, so we don't need to separately
take a field of the grammar.
---
 app/Main.lhs                           | 1 -
 lib/tabular/src/Happy/Tabular/Info.lhs | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/app/Main.lhs b/app/Main.lhs
index 2d77a8fd..a5fecd24 100644
--- a/app/Main.lhs
+++ b/app/Main.lhs
@@ -123,7 +123,6 @@ Print out the info file.
 >                       g
 >                       action
 >                       goto
->                       (token_specs g)
 >                       conflictArray
 >                       fl_name
 >                       unused_rules
diff --git a/lib/tabular/src/Happy/Tabular/Info.lhs b/lib/tabular/src/Happy/Tabular/Info.lhs
index 9baa573d..fedb9fbf 100644
--- a/lib/tabular/src/Happy/Tabular/Info.lhs
+++ b/lib/tabular/src/Happy/Tabular/Info.lhs
@@ -22,7 +22,6 @@ Produce a file of parser information, useful for debugging the parser.
 >       -> Grammar e
 >       -> ActionTable
 >       -> GotoTable
->       -> [(Int,String)]
 >       -> Array Int (Int,Int)
 >       -> String
 >       -> [Int]                        -- unused rules
@@ -36,8 +35,9 @@ Produce a file of parser information, useful for debugging the parser.
 >                , lookupProdsOfName = lookupProdNos
 >                , non_terminals = nonterms
 >                , token_names = env
+>                , token_specs = tokens
 >                })
->        action goto tokens conflictArray filename unused_rules unused_terminals version
+>        action goto conflictArray filename unused_rules unused_terminals version
 >       = (showHeader
 >       . showConflicts
 >       . showUnused