Comments are attached quite incorrectly

[mrkkrp]

Here is an example:

-- | Something.

data Foo
  = Foo Int
        Int
    -- ^ Foo
  | Bar Bool
        Bool
    -- ^ Bar

-- ^ Bar get attached to HsModule, while it's obvious that it should be attached to the Bar data constructor instead.