Adjust a pattern to get rid of a fromJust

This commit is contained in:
Joseph C. Sible 2020-02-02 00:34:54 -05:00
parent 392b57b8e8
commit e820a5642b
1 changed files with 2 additions and 2 deletions

View File

@ -2635,8 +2635,8 @@ checkMultipleAppends params t =
where where
checkList list = checkList list =
mapM_ checkGroup (groupWith (fmap fst) $ map getTarget list) mapM_ checkGroup (groupWith (fmap fst) $ map getTarget list)
checkGroup (f:_:_:_) | isJust f = checkGroup (Just (_,id):_:_:_) =
style (snd $ fromJust f) 2129 style id 2129
"Consider using { cmd1; cmd2; } >> file instead of individual redirects." "Consider using { cmd1; cmd2; } >> file instead of individual redirects."
checkGroup _ = return () checkGroup _ = return ()
getTarget (T_Annotation _ _ t) = getTarget t getTarget (T_Annotation _ _ t) = getTarget t