module T7338 where a, a :: Int a :: Int a = 0