Simplify a pattern match
commit7abdae96b1d5bde48c9534668275dd086d45206a
authorPhil Freeman <paf31@cantab.net>
dateSun 2 Mar 2014, 16:54 (13 years ago)
parent33d72eb
src/Language/PureScript/Sugar/Names.hs+1−2
@@ -173,8 +173,7 @@ type ExplicitImports = [ImportType]
173173findImports :: [Declaration] -> M.Map ModuleName (Maybe ExplicitImports)
174174findImports = foldl findImports' M.empty
175175 where
176− findImports' result (ImportDeclaration mn Nothing) = M.insert mn Nothing result
177− findImports' result (ImportDeclaration mn (Just expl)) = M.insert mn (Just expl) result
176+ findImports' result (ImportDeclaration mn expl) = M.insert mn expl result
178177 findImports' result _ = result
179178
180179-- |