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) -> [a] getFirstMatch (l:ls) f | f l = l | otherwise = getFirstMatch ls f