1 files changed, 18 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs b/tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs
index a57e6e9..b8afab4 100644
--- a/tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs
+++ b/tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs
@@ -25,6 +25,7 @@ tests = testGroup "Language.Haskell.Stylish.Step.SimpleAlign.Tests"
     , testCase "case 05" case05
     , testCase "case 06" case06
     , testCase "case 07" case07
+    , testCase "case 08" case08
     ]
 
 
@@ -148,3 +149,20 @@ case07 =
         , "    , barqux :: Int"
         , "    }"
         ]
+
+
+--------------------------------------------------------------------------------
+case08 :: Assertion
+case08 = expected @=? testStep (step 80 defaultConfig) input
+  where
+    input = unlines
+        [ "canDrink mbAge = case mbAge of"
+        , "    Just age | age > 18 -> True"
+        , "    _ -> False"
+        ]
+
+    expected = unlines
+        [ "canDrink mbAge = case mbAge of"
+        , "    Just age | age > 18 -> True"
+        , "    _                   -> False"
+        ]