1 2module Language.Haskell.HsColour.General( 3 dropLast, dropFirst 4 ) where 5 6 7dropLast :: Eq a => a -> [a] -> [a] 8dropLast x [y] | x == y = [] 9dropLast x (y:ys) = y : dropLast x ys 10dropLast x [] = [] 11 12 13dropFirst :: Eq a => a -> [a] -> [a] 14dropFirst x (y:ys) | x == y = ys 15dropFirst x ys = ys 16