Fix record layout (#1851)

* Fix record layout

* Don't change the record update rules

Co-authored-by: Junyoung/Clare Jang <[email protected]>
Co-authored-by: Potato Hatsue <[email protected]>

Author: 3 people

ghcide/src/Development/IDE/GHC/ExactPrint.hs

@@ -203,7 +203,7 @@ needsParensSpace HsMultiIf{}     = (All False, All False)
 needsParensSpace HsLet{}         = (All False, All True)
 needsParensSpace HsDo{}          = (All False, All False)
 needsParensSpace ExplicitList{}  = (All False, All False)
-needsParensSpace RecordCon{}     = (All False, All False)
+needsParensSpace RecordCon{}     = (All False, All True)
 needsParensSpace RecordUpd{}     = mempty
 needsParensSpace _               = mempty
 

plugins/hls-tactics-plugin/test/CodeAction/IntrosSpec.hs

@@ -14,3 +14,6 @@ spec = do
   describe "golden" $ do
     introsTest 2 8 "GoldenIntros"
 
+  describe "layout" $ do
+    introsTest 4 24 "LayoutRec"
+

plugins/hls-tactics-plugin/test/golden/LayoutRec.expected.hs

@@ -0,0 +1,5 @@
+data Pair a b = Pair {pa :: a, pb :: b}
+
+p :: Pair (a -> a) (a -> b -> c -> b)
+p = Pair {pa = _, pb = \ a b c -> _}
+

plugins/hls-tactics-plugin/test/golden/LayoutRec.hs

@@ -0,0 +1,5 @@
+data Pair a b = Pair {pa :: a, pb :: b}
+
+p :: Pair (a -> a) (a -> b -> c -> b)
+p = Pair {pa = _, pb = _}
+