git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Merge pull request #1751 from purescript/1739-unnecessary-bind-warning
6587019Gary Burgess
src/Language/PureScript/Linter/Imports.hs+1−5
compare with golang
unifiedsplit
@@ -58,7 +58,7 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
58 forM_ (M.toAscList imps) $ \(mni, decls) -> unless (mni `elem` alwaysUsedModules) $
58 forM_ (M.toAscList imps) $ \(mni, decls) -> unless (mni `elem` alwaysUsedModules) $
59 forM_ decls $ \(ss, declType, qualifierName) ->
59 forM_ decls $ \(ss, declType, qualifierName) ->
60 censor (onErrorMessages $ addModuleLocError ss) $ unless (qnameUsed qualifierName) $
60 censor (onErrorMessages $ addModuleLocError ss) $ unless (qnameUsed qualifierName) $
61− let names = nub $ sugarNames mni ++ M.findWithDefault [] mni usedImps
61+ let names = nub $ M.findWithDefault [] mni usedImps
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
@@ -95,10 +95,6 @@ findUnusedImports (Module _ _ _ mdecls mexports) env usedImps = do
95
95
96 _ -> return ()
96 _ -> return ()
97 where
97 where
98− sugarNames :: ModuleName -> [ Name ]
99− sugarNames (ModuleName [ProperName n]) | n == C.prelude = [ IdentName $ Qualified Nothing (Ident C.bind) ]
100− sugarNames _ = []
101−
102 reconstructTypeRefs :: ModuleName -> [ProperName] -> M.Map ProperName [ProperName]
98 reconstructTypeRefs :: ModuleName -> [ProperName] -> M.Map ProperName [ProperName]
103 reconstructTypeRefs mni = foldr accumDctors M.empty
99 reconstructTypeRefs mni = foldr accumDctors M.empty
104 where
100 where