Include both description and README contents

Personally, I think it makes more sense to leave off the description
when the README contents are available, but this was the only comment
against #333 being merged, so I'm adding this commit to be on the safe
side. Feel free to revert/rebase to exclude, I'm fine either way.

Author: snoyberg

Distribution/Server/Pages/Package.hs

@@ -105,9 +105,10 @@ descriptionSection p@PackageRender{..} =
 
 prologue :: PackageRender -> [Html]
 prologue PackageRender{..} =
-  case rendReadme of
-    Nothing -> renderHaddock (description rendOther)
-    Just (_, readme) -> [renderMarkdown readme]
+  renderHaddock (description rendOther) ++
+  (case rendReadme of
+    Nothing -> []
+    Just (_, readme) -> [renderMarkdown readme])
 
 renderHaddock :: String -> [Html]
 renderHaddock []   = []