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