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