Fix a weird formatting on RecordDotSyntax support. (#3)

data/examples/declaration/value/function/record/dot-multiline-out.hs

@@ -1,10 +1,12 @@
 {-# OPTIONS_GHC -fplugin=RecordDotPreprocessor #-}
 
 bar' =
-  (Foo 1){bar = 2
-         }
+  (Foo 1)
+    { bar = 2
+    }
 
 fooplus'''' f n =
-  f{foo = n
+  f
+    { foo = n
     , bar = n
-   }
+    }

data/examples/declaration/value/function/record/dot-singleline-out.hs

@@ -6,7 +6,7 @@ mfoo = fmap (.bar) $ Nothing
 
 bar = (Foo 1).bar
 
-fooplus f n = f{foo = f.bar + n}
+fooplus f n = f {foo = f.bar + n}
 
 fooplus' f n = f {foo = f.bar + n}
 

src/Ormolu/Printer/Combinators.hs

@@ -228,7 +228,9 @@ braces = brackets_ False "{" "}"
 --
 -- @since 0.1.3.1
 recordDotBraces :: R () -> R ()
-recordDotBraces m = sitcc (vlayout singleLine multiLine)
+recordDotBraces m = do
+    breakpoint
+    inci $ vlayout singleLine multiLine
   where
     singleLine = do
       txt "{"
@@ -236,7 +238,8 @@ recordDotBraces m = sitcc (vlayout singleLine multiLine)
       txt "}"
     multiLine = do
       txt "{"
-      sitcc m
+      space
+      m
       newline
       txt "}"