diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-05-04 19:09:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-05-04 19:09:44 +0000 |
| commit | cf0109b382c08feb20425bcf22cc31240a762f74 (patch) | |
| tree | c97e7c98c7f55339f0947e9eddd633c21618f353 /compiler/iface/IfaceEnv.lhs | |
| parent | d807cb88e01cd86fa924adbe571886fced7e65d0 (diff) | |
| download | haskell-cf0109b382c08feb20425bcf22cc31240a762f74.tar.gz | |
Make IfaceEnv warning-free
Diffstat (limited to 'compiler/iface/IfaceEnv.lhs')
| -rw-r--r-- | compiler/iface/IfaceEnv.lhs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/iface/IfaceEnv.lhs b/compiler/iface/IfaceEnv.lhs index 86f43cbccd..4f04ed7db4 100644 --- a/compiler/iface/IfaceEnv.lhs +++ b/compiler/iface/IfaceEnv.lhs @@ -1,13 +1,6 @@ (c) The University of Glasgow 2002-2006 \begin{code} -{-# OPTIONS -w #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details - module IfaceEnv ( newGlobalBinder, newIPName, newImplicitBinder, lookupIfaceTop, @@ -195,7 +188,7 @@ newIPName occ_name_ip = do \begin{code} lookupOrigNameCache :: OrigNameCache -> Module -> OccName -> Maybe Name -lookupOrigNameCache nc mod occ +lookupOrigNameCache _ mod occ | mod == dATA_TUP || mod == gHC_PRIM, -- Boxed tuples from one, Just tup_info <- isTupleOcc_maybe occ -- unboxed from the other = -- Special case for tuples; there are too many |