prelude> safeHead [23,1,4,2,4,2]
Just 23

Looks good.

What did you expect to see?