Hang expressions in if-then-else

data/examples/declaration/value/function/if-multi-line-out.hs

@@ -10,7 +10,14 @@ bar x =
     then
       foo x
         + 100
-    else
-      case x of
-        1 -> 10
-        _ -> 20
+    else case x of
+      1 -> 10
+      _ -> 20
+
+baz :: Int -> Bar
+baz x =
+  if x > 5
+    then \case
+      Foo -> bar
+    else do
+      undefined

data/examples/declaration/value/function/if-multi-line.hs

@@ -10,3 +10,13 @@ bar x =
   else case x of
          1 -> 10
          _ -> 20
+
+baz :: Int -> Bar
+baz x =
+  if x > 5
+  then
+    \case
+      Foo -> bar
+  else
+    do
+      undefined

src/Ormolu/Printer/Meat/Declaration/Value.hs

@@ -540,14 +540,12 @@ p_hsExpr = \case
     breakpoint
     inci $ do
       txt "then"
-      located then' $ \x -> do
-        breakpoint
-        inci (p_hsExpr x)
+      located then' $ \x ->
+        placeHanging (exprPlacement x) (p_hsExpr x)
       breakpoint
       txt "else"
-      located else' $ \x -> do
-        breakpoint
-        inci (p_hsExpr x)
+      located else' $ \x ->
+        placeHanging (exprPlacement x) (p_hsExpr x)
   HsMultiIf NoExt guards -> do
     txt "if"
     breakpoint