@@ -6,7 +6,7 @@ module Parse.Primitives
66 , run, runAt
77 , try, deadend, hint, endOfFile
88 , getPosition, getCol
9− , getContext, pushContext, popContext
9+ , pushContext, popContext
1010 , getIndent, setIndent
1111 , W.SPos
1212 , SParser
@@ -138,12 +138,6 @@ getCol =
138138 eok col state noError
139139
140140
141−getContext :: Parser E.ContextStack
142−getContext =
143− Parser $ \state@(State _ _ _ _ _ _ ctx) _ _ eok _ ->
144− eok ctx state noError
145−
146−
147141pushContext :: R.Position -> E.Context -> Parser ()
148142pushContext pos ctx =
149143 Parser $ \state@(State _ _ _ _ _ _ context) _ _ eok _ ->