evac/Util.hs

module Util where

rmFirstMatch :: [a] -> (a -> Bool) -> [a]
rmFirstMatch [] _ = []
rmFirstMatch (l:ls) f
   | f l = ls
   | otherwise = (l : rmFirstMatch ls f)

unwrapLeft :: Either a b -> a
unwrapLeft (Left x) = x
unwrapLeft (Right _) = error "Not a Left value"

unwrapRight :: Either a b -> b
unwrapRight (Right x) = x
unwrapRight (Left _) = error "Not a Right value"

-- Remove duplicates, stabily
uniq :: (Eq a) => [a] -> [a]
uniq x = reverse $ go x []
   where
      go [] al = al
      go (c:cs) al = if (c `elem` al) then (go cs al) else (go cs (c:al))

-- Return the first item that f returns true for
getFirstMatch :: [a] -> (a -> Bool) -> Maybe a
getFirstMatch [] _ = Nothing
getFirstMatch (l:ls) f
   | f l = Just l
   | otherwise = getFirstMatch ls f