Merging 2 branches - function definition depends on constant definition

merging2.hs

-- base
-------
c :: Int
c = 5

plusc :: Int -> Int
plusc x = x + c

main = putStrLn $ "the total is: " ++ show (plusc 1)

-- branch A
-----------
c :: Int
c = 6 -- New Value

plusc :: Int -> Int
plusc x = x + c

main = putStrLn $ "the total is: " ++ show (plusc 1)

-- branch B
-----------
c :: Int
c = 5

plusc :: Int -> Int
plusc x = case c of -- New Definition
            6 -> -3
            _ -> x + c

main = putStrLn $ "the total is: " ++ show (plusc 1)