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