Fix CSS rendering for golden tests

There were two extra spaces before each CSS Node and an extra newline
before and after the CSS attributes. I assume the tests were the desired
outcome.

src/Web/View/Render.hs

@@ -79,12 +79,12 @@ renderText' c vw =
   addCss :: [Text] -> Text -> Text
   addCss [] cnt = cnt
   addCss css cnt = do
-    renderLines (renderContent 2 $ styleElement css) <> "\n\n" <> cnt
+    renderLines (renderContent 0 $ styleElement css) <> "\n\n" <> cnt
 
   styleElement :: [Text] -> Content
   styleElement css =
     Node $ element "style" (Attributes [] [("type", "text/css")]) $ do
-      pure $ Raw $ "\n" <> intercalate "\n" css <> "\n"
+      pure $ Raw $ intercalate "\n" css
 
 
 renderContent :: Int -> Content -> [Line]