diff options
| author | simonpj@microsoft.com <unknown> | 2010-04-09 16:35:06 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-04-09 16:35:06 +0000 |
| commit | 858a5b2607fc14f55e285127996c8af24a90b00e (patch) | |
| tree | d8e9c531944663dfac26ec63fb882a39009f0988 /compiler/iface/MkIface.lhs | |
| parent | f92dd77cd9555984823cb45ca4b5bf78eebd2444 (diff) | |
| download | haskell-858a5b2607fc14f55e285127996c8af24a90b00e.tar.gz | |
Layout only
Diffstat (limited to 'compiler/iface/MkIface.lhs')
| -rw-r--r-- | compiler/iface/MkIface.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index e5172e7610..17d5d2a2af 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -164,9 +164,8 @@ mkUsedNames TcGblEnv{ tcg_inst_uses = dfun_uses_var, tcg_dus = dus } - = do - dfun_uses <- readIORef dfun_uses_var -- What dfuns are used - return (allUses dus `unionNameSets` dfun_uses) + = do { dfun_uses <- readIORef dfun_uses_var -- What dfuns are used + ; return (allUses dus `unionNameSets` dfun_uses) } mkDependencies :: TcGblEnv -> IO Dependencies mkDependencies |