Multiple docstrings on a single declaration are concatened in wrong order

[sjakobi]

Input:

-- | 1

-- | 2
someFunc :: IO ()
-- ^ 3
someFunc = putStrLn "someFunc"
-- ^ 4

Result:

My preferred fix for this would be to disallow multiple docstrings on a single declaration.