you've heard of permutations, get ready for this

combinations.hs

-- possibly the worst implementation out there but

combinations [] = []
combinations xs = go (length xs) (map pure xs) xs where
  go 1 zs __ = zs
  go n zs ys = [ y:z | y <- ys, z <- go (n-1) zs ys ]