projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5db0076
)
Whitespace only
author
Ian Lynagh
<igloo@earth.li>
Thu, 21 Oct 2010 13:44:04 +0000
(13:44 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Thu, 21 Oct 2010 13:44:04 +0000
(13:44 +0000)
compiler/iface/BinIface.hs
patch
|
blob
|
history
diff --git
a/compiler/iface/BinIface.hs
b/compiler/iface/BinIface.hs
index
9cc824a
..
211e8a7
100644
(file)
--- a/
compiler/iface/BinIface.hs
+++ b/
compiler/iface/BinIface.hs
@@
-256,20
+256,20
@@
fromOnDiskName
-> OnDiskName
-> (NameCache, Name)
fromOnDiskName _ nc (pid, mod_name, occ) =
-> OnDiskName
-> (NameCache, Name)
fromOnDiskName _ nc (pid, mod_name, occ) =
- let
+ let
mod = mkModule pid mod_name
cache = nsNames nc
in
case lookupOrigNameCache cache mod occ of
Just name -> (nc, name)
mod = mkModule pid mod_name
cache = nsNames nc
in
case lookupOrigNameCache cache mod occ of
Just name -> (nc, name)
- Nothing ->
- let
+ Nothing ->
+ let
us = nsUniqs nc
uniq = uniqFromSupply us
name = mkExternalName uniq mod occ noSrcSpan
new_cache = extendNameCache cache mod occ name
us = nsUniqs nc
uniq = uniqFromSupply us
name = mkExternalName uniq mod occ noSrcSpan
new_cache = extendNameCache cache mod occ name
- in
- case splitUniqSupply us of { (us',_) ->
+ in
+ case splitUniqSupply us of { (us',_) ->
( nc{ nsUniqs = us', nsNames = new_cache }, name )
}
( nc{ nsUniqs = us', nsNames = new_cache }, name )
}