clean up some ugly code

This commit is contained in:
Joey Hess 2013-09-27 19:52:36 -04:00
parent d6883dcd7f
commit c6032b0dab
5 changed files with 40 additions and 24 deletions

View file

@ -91,12 +91,6 @@ massReplace vs = go [] vs
go (replacement:acc) vs (drop (length val) s)
| otherwise = go acc rest s
{- First item in the list that is not Nothing. -}
firstJust :: Eq a => [Maybe a] -> Maybe a
firstJust ms = case dropWhile (== Nothing) ms of
[] -> Nothing
(md:_) -> md
{- Given two orderings, returns the second if the first is EQ and returns
- the first otherwise.
-