Commit d7b36bbb authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Remove dead code

parent 5f8d93ba
......@@ -410,11 +410,6 @@ extendFixityEnv new_bit
getRecFieldEnv :: TcRn RecFieldEnv
getRecFieldEnv = do { env <- getGblEnv; return (tcg_field_env env) }
extendRecFieldEnv :: RecFieldEnv -> RnM a -> RnM a
extendRecFieldEnv new_bit
= updGblEnv (\env@(TcGblEnv { tcg_field_env = old_env }) ->
env {tcg_field_env = old_env `plusNameEnv` new_bit})
getDeclaredDefaultTys :: TcRn (Maybe [Type])
getDeclaredDefaultTys = do { env <- getGblEnv; return (tcg_default env) }
\end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment