concat two integers haskell

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