From: simonpj <unknown>
Date: Wed, 9 May 2001 13:04:30 +0000 (+0000)
Subject: [project @ 2001-05-09 13:04:30 by simonpj]
X-Git-Tag: Approximately_9120_patches~1967
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5d9b0aa4904ea802616fa20e90e5353fcdc90fde;p=ghc-hetmet.git

[project @ 2001-05-09 13:04:30 by simonpj]
Remove unused fn getContext
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index a7daf47..336a1b3 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -1190,9 +1190,6 @@ setSrcLocP new_loc p buf s =
 getSrcFile :: P FAST_STRING
 getSrcFile buf s@(PState{ loc = loc }) = POk s (srcLocFile loc)
 
-getContext :: P [LayoutContext]
-getContext buf s@(PState{ context = ctx }) = POk s ctx
-
 pushContext :: LayoutContext -> P ()
 pushContext ctxt buf s@(PState{ context = ctx }) = POk s{context = ctxt:ctx} ()