module UniqueInOrder (uniqueInOrder) where
import Data.List (head, group)
uniqueInOrder :: Eq a => [a] -> [a]
uniqueInOrder = map head . group