Solution 1: Recursive version

duplicate list =
  case list of
    [] -> []
    x :: xs -> x :: x :: duplicate xs

Solution 2: Pointfree, using List.foldr

duplicate = List.foldr (\x xs -> x :: x :: xs) []