BangPatterns are incorrectly handled

[nibro]

module BangPatterns where

firstnonspace :: Ptr Word8 -> Int -> Int -> IO Int
firstnonspace !ptr !n !m
    | n >= m    = return n
    | otherwise = do w <- peekElemOff ptr n
                     if isSpaceWord8 w then firstnonspace ptr (n+1) m else return n

The parser complains when there are more than one bang pattern in a function binding. And in fact, when there is only one bang pattern, the parser thinks it's the operator ! that's being defined.

[nibro]

Took quite some digging, but now it should work correctly. Case closed.