module Language.Haskell.HsColour.General( dropLast, dropFirst ) where dropLast :: Eq a => a -> [a] -> [a] dropLast :: a -> [a] -> [a] dropLast x :: a x [y :: a y] | a x a -> a -> Bool forall a. Eq a => a -> a -> Bool == a y = [] dropLast x :: a x (y :: a y:ys :: [a] ys) = a y a -> [a] -> [a] forall a. a -> [a] -> [a] : a -> [a] -> [a] forall a. Eq a => a -> [a] -> [a] dropLast a x [a] ys dropLast x :: a x [] = [] dropFirst :: Eq a => a -> [a] -> [a] dropFirst :: a -> [a] -> [a] dropFirst x :: a x (y :: a y:ys :: [a] ys) | a x a -> a -> Bool forall a. Eq a => a -> a -> Bool == a y = [a] ys dropFirst x :: a x ys :: [a] ys = [a] ys