Concat deux entiers Haskell

addDigit a b | a < 0     = a * 10 - b
             | otherwise = a * 10 + b
Frightened Ferret