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