Split a List into sublists, List to Tuple, lifting tuples

listUtils.hs

import qualified Data.List as L

splitEvery :: Int -> [a] -> [[a]]
splitEvery n []   = []
splitEvery n list = first : splitEvery n second
  where (first, second) = L.splitAt n list
  
tuplify2 :: [a] -> (a, a)
tuplify2 [x, y] = (x, y)
tuplify2 _      = error "list does not have 2 elements"

liftFst :: (a -> c) -> (a, b) -> (c, b)
liftFst f (x, y) = (f x, y)

liftSnd :: (b -> c) -> (a, b) -> (a, c)
liftSnd f (x, y) = (x, f y)