Addition or subtraction O_O

import Prelude hiding ((+))
(+)::Int->Int->Int
a + b = a - b

main :: IO()
main = do
    let a = 3
    let b = 4
    let l = a + b
    putStrLn(show l)