diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-27 19:52:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-27 19:52:36 -0400 |
| commit | cbf810a421901e76ee2d3e18592fb4d39de851a6 (patch) | |
| tree | 222eb2bedae5ddd3703d611a5b31a5b396dca75f /Utility/Misc.hs | |
| parent | 7d1b396cc863fb93869b7358dcfe1908985a21b8 (diff) | |
clean up some ugly code
Diffstat (limited to 'Utility/Misc.hs')
| -rw-r--r-- | Utility/Misc.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Utility/Misc.hs b/Utility/Misc.hs index 48ce4c929..804a9e487 100644 --- a/Utility/Misc.hs +++ b/Utility/Misc.hs @@ -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. - |