diff options
| -rw-r--r-- | compiler/rename/RnEnv.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/rename/RnEnv.hs b/compiler/rename/RnEnv.hs index 5ca8050b6e..8feea01160 100644 --- a/compiler/rename/RnEnv.hs +++ b/compiler/rename/RnEnv.hs @@ -260,9 +260,7 @@ lookupTopBndrRn_maybe rdr_name -- This deals with the case of derived bindings, where -- we don't bother to call newTopSrcBinder first -- We assume there is no "parent" name - = do { loc <- getSrcSpanM - ; n <- newGlobalBinder rdr_mod rdr_occ loc - ; return (Just n)} + = do { Just <$> lookupOrig rdr_mod rdr_occ } -- MP: This looks dodgy, why not just make sure the calls are inserted.. |