@@ -143,7 +143,9 @@ varToJs :: ModuleName -> Environment -> Qualified Ident -> JS
143varToJs m e qual@(Qualified _ ident) = case M.lookup (qualify m qual) (names e) of
143varToJs m e qual@(Qualified _ ident) = case M.lookup (qualify m qual) (names e) of
144 Just (_, ty) | isExtern ty -> JSVar ident
144 Just (_, ty) | isExtern ty -> JSVar ident
145 Just (_, Alias aliasModule aliasIdent) -> qualifiedToJS identToJs (Qualified (Just aliasModule) aliasIdent)
145 Just (_, Alias aliasModule aliasIdent) -> qualifiedToJS identToJs (Qualified (Just aliasModule) aliasIdent)
147+ Qualified Nothing _ -> JSVar ident
146− _ -> qualifiedToJS identToJs qual
148+ _ -> qualifiedToJS identToJs qual
148 isExtern (Extern ForeignImport) = True
150 isExtern (Extern ForeignImport) = True
149 isExtern (Alias m' ident') = case M.lookup (m', ident') (names e) of
151 isExtern (Alias m' ident') = case M.lookup (m', ident') (names e) of