contiguous sublists of n length in haskell

sublist.hs

sublists :: Int -> [a] -> [[a]]
sublists n xs = filter (\x -> length x == n) $ contiguous n xs
  where
    contiguous _ [] = []
    contiguous n (x:xs) =
      take n (x:xs) : contiguous n xs