Revert "cleanup"

This reverts commit 698acae.
vmchale · Sep 11, 2024 · 2a82ebe · 2a82ebe
1 parent 8d5a1fe
commit 2a82ebe
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Language/Dickinson/Parser.y b/src/Language/Dickinson/Parser.y
@@ -4,7 +4,9 @@
     {-# LANGUAGE DeriveGeneric #-}
     {-# LANGUAGE OverloadedStrings #-}
     module Language.Dickinson.Parser ( parse
+                                     , parseWithMax
                                      , parseWithCtx
+                                     , parseWithInitCtx
                                      , parseReplWithCtx
                                      , parseExpressionWithCtx
                                      , ParseError (..)
@@ -239,6 +241,9 @@ parseReplWithCtx = parseWithInitSt parseRepl
 parseExpressionWithCtx :: BSL.ByteString -> AlexUserState -> Either (ParseError AlexPosn) (AlexUserState, Expression AlexPosn)
 parseExpressionWithCtx = parseWithInitSt parseExpression
 
+parseWithInitCtx :: BSL.ByteString -> Either (ParseError AlexPosn) (AlexUserState, Dickinson AlexPosn)
+parseWithInitCtx bsl = parseWithCtx bsl alexInitUserState
+
 parseWithCtx :: BSL.ByteString -> AlexUserState -> Either (ParseError AlexPosn) (AlexUserState, Dickinson AlexPosn)
 parseWithCtx = parseWithInitSt parseDickinson