Fix testcases/Add regression tests for latest fixes

src-unittests/IdentityTests.hs

@@ -444,17 +444,15 @@ basicExpressionTests = do
       |]
     it "2" $ roundTripEqual $
       [text|
-      func =
+      func = lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
+        lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
         lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-          lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
-          lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd
       |]
     it "3" $ roundTripEqual $
       [text|
-      func =
+      func = lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd lakjsdlajsdljas
-        lakjsdlajsdljasdlkjasldjasldjasldjalsdjlaskjd lakjsdlajsdljas
+                                                           lakjsdlajsdljas
-                                                      lakjsdlajsdljas
+                                                           lakjsdlajsdljas
-                                                      lakjsdlajsdljas
       |]
   describe "sections" $ do
     it "left" $ roundTripEqual $
@@ -603,3 +601,29 @@ regressionTests = do
                             -- used to accurately calc placing of the current-line
                             LayoutDesc -> Int
       |]
+  it "some indentation thingy" $ do
+    roundTripEqual $
+      [text|
+      func =
+        ( lkjadljasldjalskdjaldjalsdjkalsdjlaksdjlasjdlajsaldskj
+        $ abc
+        $ def
+        $ ghi
+        $ jkl
+        )
+      |]
+  it "parenthesized operator" $ do
+    roundTripEqual $
+      [text|
+      buildG bounds0 edges0 = accumArray (flip (:)) [] bounds0 (map reassoc edges0)
+       where
+        reassoc (v, e, w) = (v, (e, w))
+      |]
+  it "record pattern matching stuff" $ do
+    roundTripEqual $
+      [text|
+      downloadRepoPackage = case repo of
+        RepoLocal {..}    -> return ()
+        RepoLocal { abc } -> return ()
+        RepoLocal{}       -> return ()
+      |]