Adjust a pattern to get rid of a fromJust
This commit is contained in:
parent
392b57b8e8
commit
e820a5642b
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue