Slightly refactor record alignment

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/Language/Haskell/Stylish/Step/Records/Tests.hs b/tests/Language/Haskell/Stylish/Step/Records/Tests.hs
index 2001300..312c6fa 100644
--- a/tests/Language/Haskell/Stylish/Step/Records/Tests.hs
+++ b/tests/Language/Haskell/Stylish/Step/Records/Tests.hs
@@ -19,6 +19,7 @@ import           Language.Haskell.Stylish.Tests.Util
 tests :: Test
 tests = testGroup "Language.Haskell.Stylish.Step.Records.Tests"
     [ testCase "case 01" case01
+    , testCase "case 02" case02
     ]
 
 
@@ -39,3 +40,17 @@ case01 = expected @=? testStep step input
         , "    , barqux :: String"
         , "    } deriving (Show)"
         ]
+
+
+--------------------------------------------------------------------------------
+case02 :: Assertion
+case02 = input @=? testStep step input
+  where
+    -- Don't attempt to align this since a field spans multiple lines
+    input = unlines
+        [ "data Foo = Foo"
+        , "    { foo :: Int"
+        , "    , barqux"
+        , "         :: String"
+        , "    } deriving (Show)"
+        ]