Difference between classic style and ormolu style diffs

haskell/ormolu-trailing-comma/classic.hs

@@ -8,13 +8,15 @@ lists =
   [ "It is often lists do not fit into a single line."
   , "We need to format them in a readable fashion"
   , "without compromising functionality."
+  , "Placement of commas at the end increases git diffs!"
   ]
 
 data Record =
   Record
     { records :: String
     , are :: Bool
     , no :: Bool
+    , exception :: SomeException
     }
 
 myRecord :: Record
@@ -23,6 +25,7 @@ myRecord =
     { records = "Records are also suscpetible to trailing comma problem"
     , are = True
     , no = False
+    , exception = toException StackOverflow
     }
 
 
@@ -32,9 +35,11 @@ tuples ::
      ( String
      , String
      , VeryLongTypeNameThatCausesForTupleiInTheTypeSignatureToWrapAroundTooAmIRight
+     , Bool
      )
 tuples =
   ( "It is less common for tuples to not fit into a single line."
   , "However it does still happen"
   , AmIRight
+  , True
   )

haskell/ormolu-trailing-comma/ormolu.hs

@@ -7,32 +7,68 @@ lists :: [String]
 lists =
   [ "It is often that lists do not fit into a single line.",
     "We need to format them in a readable fashion",
-    "without compromising functionality."
+    "without compromising functionality.",
+    "Placement of commas at the end increases git diffs!"
   ]
 
 data Record = Record
   { records :: String,
     are :: Bool,
-    no :: Bool
+    no :: Bool,
+    exception :: SomeException
   }
 
 myRecord :: Record
 myRecord =
   Record
     { records = "Records are aslo suscpetible to trailing comma problem",
       are = True,
-      no = False
+      no = False,
+      exception = toException StackOverflow
     }
 
 data VeryLongTypeNameThatCausesForTupleiInTheTypeSignatureToWrapAroundTooAmIRight = AmIRight
 
 tuples ::
   ( String,
     String,
-    VeryLongTypeNameThatCausesForTupleiInTheTypeSignatureToWrapAroundTooAmIRight
+    VeryLongTypeNameThatCausesForTupleiInTheTypeSignatureToWrapAroundTooAmIRight,
+    Bool
   )
 tuples =
   ( "It is less common for tuples to not fit into a single line.",
     "However it does still happen",
-    AmIRight
+    AmIRight,
+    True
   )
+
+
+foo :: Num a => (a, a, a) -> a
+foo ( x
+    , y
+    , z
+    ) = x + y + z
+
+
+bar :: Num a => [a] -> a
+bar [ x
+    , y
+    , z
+    ] = x + y + z
+
+
+baz :: Num a => [a] -> a
+baz xs =
+  case xs of
+    Foo [ x
+        , y
+        , z
+        ] -> x + y + z
+    _ -> 0
+
+bar :: Num a => [a] -> a
+bar [ x
+    , y
+    , z
+    ] = x + y + z
+bar _ = 0

haskell/vector/slice.hs

@@ -2,7 +2,6 @@
 module Main where
 
 import Control.Exception
-import Control.Monad as M
 import Data.List as List
 import qualified Data.Vector as V
 import qualified Data.Vector.Generic as VG
@@ -33,6 +32,7 @@ printSlices name sliceWith xs = do
   tryErrorPrint "   too large size: "  (sliceWith 2 6 xs)
   tryErrorPrint "   too large ix size: " (sliceWith 6 6 xs)
 
+main :: IO ()
 main = do
   let xs = [1, 2, 3, 4, 5] :: [Int]
   printSlices "List" sliceList xs