Error when re-exporting a pseudo module with conflicts

examples/failing/ConflictingQualifiedImports.purs

@@ -0,0 +1,17 @@
+-- @shouldFailWith ScopeConflict
+module A where
+
+  thing :: Int
+  thing = 1
+
+module B where
+
+  thing :: Int
+  thing = 2
+
+module Main where
+
+  import A as X
+  import B as X
+
+  foo = X.thing

examples/failing/ConflictingQualifiedImports2.purs

@@ -0,0 +1,15 @@
+-- @shouldFailWith ScopeConflict
+module A where
+
+  thing :: Int
+  thing = 1
+
+module B where
+
+  thing :: Int
+  thing = 2
+
+module Main (module X) where
+
+  import A as X
+  import B as X

src/Language/PureScript/Sugar/Names/Exports.hs

@@ -115,12 +115,11 @@ resolveExports env mn imps exps refs =
     -> (a -> String)
     -> M.Map (Qualified a) [(Qualified a, ModuleName)]
     -> m [Qualified a]
-  extract useQual name render = fmap (map (fst . head . snd)) . go useQual . M.toList
+  extract useQual name render = fmap (map (fst . head . snd)) . go . M.toList
     where
-    go True = filterM (return . eqQual name . fst)
-    go False = filterM $ \(_, options) -> do
-      let isMatch = any (eqQual name . fst) options
-      when (length options > 1) $ checkImportConflicts render options
+    go = filterM $ \(name', options) -> do
+      let isMatch = if useQual then eqQual name name' else any (eqQual name . fst) options
+      when (isMatch && length options > 1) $ checkImportConflicts render options
       return isMatch
 
   -- Check whether a module name refers to a "pseudo module" that came into