Reimplementation of Haskell’s `head`, `tail`, `init`, and `last` functions

ListOps.hs

-- http://www.codewars.com/kata/54592a5052756d5c5d0009c3/train/haskell

module ListOps where
import Prelude hiding (head, tail, init, last)

head :: [a] -> a
head (x:_) = x

tail :: [a] -> [a]
tail (_:xs) = xs

init :: [a] -> [a]
init [_] = []
init (x:xs) = x:init xs

last :: [a] -> a
last [x] = x
last (x:xs) = last xs