Eu tenho a seguinte função que leva uma lista e retorna duas sub-listas divididas em um dado elemento n. No entanto, eu só preciso dividi-lo ao meio, com listas de comprimentos ímpares tendo uma primeira sub-lista maior

splitlist :: [a] -> Int -> ([a],[a])
splitlist [] = ([],[])
splitlist l@(x : xs) n | n > 0     = (x : ys, zs)
               | otherwise = (l, [])
    where (ys,zs) = splitlist xs (n - 1)

Eu sei que preciso alterar a assinatura para [a] -> ([a], [a]), mas onde no código devo colocar algo como length (xs) para que eu não quebre a recursão? Obrigado.