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