Parser should accept pipe-style docs for data constructor fields

Summary

GHC in "Haddock mode" accepts the following:

data X
  = B
     !Int -- ^ y
     C

But not the following:

data X
  = B
     -- | y
     !Int
     C

Why not?