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