Use mapM instead of implementing a slower version of it

2020-02-09 19:33:36 -05:00 · 2020-02-09 19:33:36 -05:00 · cb01cbf7eb
parent 1e32139f66
commit cb01cbf7eb
1 changed files with 1 additions and 1 deletions
--- a/src/ShellCheck/Analytics.hs
+++ b/src/ShellCheck/Analytics.hs
@ -431,7 +431,7 @@ checkWrongArithmeticAssignment params (T_SimpleCommand id (T_Assignment _ _ _ _
    insertRef _ = Prelude.id

    getNormalString (T_NormalWord _ words) = do
-        parts <- foldl (liftM2 (\x y -> x ++ [y])) (Just []) $ map getLiterals words
+        parts <- mapM getLiterals words
        return $ concat parts
    getNormalString _ = Nothing