From cbf810a421901e76ee2d3e18592fb4d39de851a6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 27 Sep 2013 19:52:36 -0400
Subject: clean up some ugly code

---
 Utility/Misc.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'Utility/Misc.hs')

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.
  -
-- 
cgit v1.2.3