foo :: Int
foo = (-2)

bar :: Int
bar = -2

baz :: Int
baz = - 2

neg :: Int -> Int
neg x = (- x)
neg x = - x
neg x = -x

weird :: Int -> Int -> Int
weird x y = x -y

pat = \case -1 -> 1

pat = \case - 1 -> 1