From 5d9b0aa4904ea802616fa20e90e5353fcdc90fde Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 9 May 2001 13:04:30 +0000
Subject: [PATCH] [project @ 2001-05-09 13:04:30 by simonpj] Remove unused fn
 getContext

---
 ghc/compiler/parser/Lex.lhs |    3 ---
 1 file changed, 3 deletions(-)

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} ()
 
-- 
1.7.10.4