git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Simplify a pattern match
7abdae9Phil Freeman
src/Language/PureScript/Sugar/Names.hs+1−2
compare with golang
unifiedsplit
@@ -173,8 +173,7 @@ type ExplicitImports = [ImportType]
173findImports :: [Declaration] -> M.Map ModuleName (Maybe ExplicitImports)
173findImports :: [Declaration] -> M.Map ModuleName (Maybe ExplicitImports)
174findImports = foldl findImports' M.empty
174findImports = foldl findImports' M.empty
175 where
175 where
176− findImports' result (ImportDeclaration mn Nothing) = M.insert mn Nothing result
176+ findImports' result (ImportDeclaration mn expl) = M.insert mn expl result
177− findImports' result (ImportDeclaration mn (Just expl)) = M.insert mn (Just expl) result
178 findImports' result _ = result
177 findImports' result _ = result
179
178
180-- |
179-- |