@@ -7,7 +7,7 @@ import Prelude ()
77import Prelude.Compat
88
99import qualified Data.Map as M
10−import Data.Maybe (mapMaybe)
10+import Data.Maybe (mapMaybe, isNothing)
1111import Data.List ((\\), find, intersect, nub)
1212import Control.Monad.Error.Class (MonadError(..))
1313import Control.Monad.Writer.Class
@@ -62,7 +62,7 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
6262 usedNames = mapMaybe (matchName (typeForDCtor mni) qualifierName) names
6363 usedDctors = mapMaybe (matchDctor qualifierName) names
6464 in case declType of
65− Implicit ->
65+ Implicit | isNothing qualifierName ->
6666 let classRefs = TypeClassRef <$> mapMaybe getClassName names
6767 valueRefs = ValueRef <$> mapMaybe getIdentName names
6868 types = mapMaybe getTypeName names