@@ -7,7 +7,7 @@ import Prelude ()
7import Prelude.Compat
7import Prelude.Compat
9import qualified Data.Map as M
9import qualified Data.Map as M
10−import Data.Maybe (mapMaybe)
10+import Data.Maybe (mapMaybe, isNothing)
11import Data.List ((\\), find, intersect, nub)
11import Data.List ((\\), find, intersect, nub)
12import Control.Monad.Error.Class (MonadError(..))
12import Control.Monad.Error.Class (MonadError(..))
13import Control.Monad.Writer.Class
13import Control.Monad.Writer.Class
@@ -62,7 +62,7 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
62 usedNames = mapMaybe (matchName (typeForDCtor mni) qualifierName) names
62 usedNames = mapMaybe (matchName (typeForDCtor mni) qualifierName) names
63 usedDctors = mapMaybe (matchDctor qualifierName) names
63 usedDctors = mapMaybe (matchDctor qualifierName) names
64 in case declType of
64 in case declType of
65− Implicit ->
65+ Implicit | isNothing qualifierName ->
66 let classRefs = TypeClassRef <$> mapMaybe getClassName names
66 let classRefs = TypeClassRef <$> mapMaybe getClassName names
67 valueRefs = ValueRef <$> mapMaybe getIdentName names
67 valueRefs = ValueRef <$> mapMaybe getIdentName names
68 types = mapMaybe getTypeName names
68 types = mapMaybe getTypeName names