From 59a91586963b8adbc03bbe8fc29fc71fac5c0989 Mon Sep 17 00:00:00 2001
From: "lennart@augustsson.net" <unknown>
Date: Sun, 4 Feb 2007 19:28:55 +0000
Subject: [PATCH] Export a function to grab the local environment as a
 function.

---
 compiler/rename/RnEnv.lhs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index d09c2ab6a298..50b0adb83cf0 100644
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -15,6 +15,7 @@ module RnEnv (
 	lookupLocatedInstDeclBndr,
 	lookupSyntaxName, lookupSyntaxTable, lookupImportedName,
 	lookupGreRn, lookupGreRn_maybe,
+	getLookupOccRn,
 
 	newLocalsRn, newIPNameRn,
 	bindLocalNames, bindLocalNamesFV,
@@ -255,6 +256,11 @@ lookupFamInstDeclBndr mod lrdr_name@(L _ rdr_name)
 --		Occurrences
 --------------------------------------------------
 
+getLookupOccRn :: RnM (Name -> Maybe Name)
+getLookupOccRn
+  = getLocalRdrEnv			`thenM` \ local_env ->
+    return (lookupLocalRdrEnv local_env . mkRdrUnqual . nameOccName)
+
 lookupLocatedOccRn :: Located RdrName -> RnM (Located Name)
 lookupLocatedOccRn = wrapLocM lookupOccRn
 
-- 
GitLab