module Language.Haskell.HsColour.General(
    dropLast, dropFirst
    ) where


dropLast :: Eq a => a -> [a] -> [a]
dropLast :: a -> [a] -> [a]
dropLast x :: a
x [y :: a
y] | a
x a -> a -> Bool
forall a. Eq a => a -> a -> Bool
== a
y = []
dropLast x :: a
x (y :: a
y:ys :: [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 x :: a
x [] = []


dropFirst :: Eq a => a -> [a] -> [a]
dropFirst :: a -> [a] -> [a]
dropFirst x :: a
x (y :: a
y:ys :: [a]
ys) | a
x a -> a -> Bool
forall a. Eq a => a -> a -> Bool
== a
y = [a]
ys
dropFirst x :: a
x ys :: [a]
ys = [a]
ys