Fix original name of imported labels in value environment

src/Imports.hs

@@ -264,7 +264,7 @@ values m (INewtypeDecl _ tc _ tvs nc hs) =
   case nc of
     NewConstrDecl _ _ _        -> []
     NewRecordDecl _ c (l, lty) ->
-      [recLabel m tc tvs ty' (l, [c], lty) | l `notElem` hs]
+      [recLabel m tc' tvs ty' (l, [c], lty) | l `notElem` hs]
   where tc' = qualQualify m tc
         ty' = constrType tc' tvs
 values m (IFunctionDecl _ f Nothing a qty) =