Commit c7cc8e01 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Fixed bug w.r.t. imported Record names without enabled Record syntax

parent 3d604b8b
......@@ -449,12 +449,13 @@ importUnifyData' tcEnv = fmap (setInfo allTyCons) tcEnv
-- |
qualifyEnv :: Options -> CompilerEnv -> CompilerEnv
qualifyEnv opts env = expandValueEnv opts
qualifyEnv opts env = expandValueEnv opts'
$ qualifyLocal env
$ foldl (flip importInterfaceIntf) initEnv
$ Map.elems
$ interfaceEnv env
where initEnv = initCompilerEnv $ moduleIdent env
opts' = opts { optExtensions = Records : optExtensions opts }
qualifyLocal :: CompilerEnv -> CompilerEnv -> CompilerEnv
qualifyLocal currentEnv initEnv = currentEnv
......
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