module UniqueInOrder (uniqueInOrder) where

import Data.List (head, group)

uniqueInOrder :: Eq a => [a] -> [a]
uniqueInOrder = map head . group