Haskell - определение функции с охранниками внутри "where"

Я только начинаю учиться самому Хаскелу. Этот код должен делать простой факторизатор:

divides :: Integer -> Integer -> Bool
divides small big = (big `mod` small == 0)

lowestDivisor :: Integer -> Integer
lowestDivisor n = lowestDivisorHelper 2 n
    where lowestDivisorHelper m n
        | (m `divides` n) = m  -- these should belong to lowestDivisorHelper
        | otherwise = lowestDivisorHelper (m+1) n

primeFactors :: Integer -> [Integer]
primeFactors 1 = []
primeFactors n
    | n < 1 = error "Must be positive"
    | otherwise = let m = lowestDivisor n
                  in m:primeFactors (n/m)

Я получаю ошибку синтаксического анализа в комментариях. Я думаю, что моя проблема может заключаться в том, что lowestDivisorHelper имеет охранники, но компилятор не знает, принадлежат ли охранники к lowestDivisorHelper или lowestDivisor. Как мне обойти это?

Изменить. Я должен добавить, что я не хотел определять вспомогательную функцию на верхнем уровне, чтобы скрыть детали реализации. Импортирование файла не должно содержать вспомогательную функцию.

lowestDivisor :: Integer -> Integer lowestDivisor n = lowestDivisorHelper 2 n where lowestDivisorHelper m n | (m `divides` n) = m -- these should belong to lowestDivisorHelper | otherwise = lowestDivisorHelper (m+1) n

Ответ 1