summaryrefslogtreecommitdiff
path: root/compiler/GHC/Rename/Unbound.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Rename/Unbound.hs')
-rw-r--r--compiler/GHC/Rename/Unbound.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Rename/Unbound.hs b/compiler/GHC/Rename/Unbound.hs
index b843ff6d5a..d91227670d 100644
--- a/compiler/GHC/Rename/Unbound.hs
+++ b/compiler/GHC/Rename/Unbound.hs
@@ -328,8 +328,7 @@ importSuggestions looking_for global_env hpt currMod imports rdr_name
| otherwise = True
where
hpt_uniques = map fst (udfmToList hpt)
- is_last_loaded_mod _ [] = False
- is_last_loaded_mod modnam uniqs = last uniqs == getUnique modnam
+ is_last_loaded_mod modnam uniqs = lastMaybe uniqs == Just (getUnique modnam)
glob_mods = nub [ mod
| gre <- globalRdrEnvElts global_env
, (mod, _) <- qualsInScope gre