Indent closing bracket for list comprehensions in do blocks

CHANGELOG.md

@@ -3,6 +3,9 @@
 * Fixed a bug in the diff printing functionality. [Issue
   886](https://github.com/tweag/ormolu/issues/886).
 
+* Indent closing bracket for list comprehensions in `do` blocks.
+  [Issue 893](https://github.com/tweag/ormolu/issues/893).
+
 ## Ormolu 0.5.0.0
 
 * Changed the way operator fixities and precedences are inferred.

data/examples/declaration/value/function/list-comprehensions-out.hs

@@ -22,3 +22,8 @@ barbaz x y z w =
           d
         ]
   ]
+
+a = do
+  [ c
+    | c <- d
+    ]

data/examples/declaration/value/function/list-comprehensions.hs

@@ -20,3 +20,7 @@ barbaz x y z w = [
         c, d
       ]
   ]
+
+a = do
+  [ c
+      | c <- d ]

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

@@ -744,7 +744,7 @@ p_hsExpr' s = \case
           forM_ moduleName $ \m -> atom m *> txt "."
           txt header
           p_stmts exprPlacement (p_hsExpr' S) es
-        compBody = brackets N . located es $ \xs -> do
+        compBody = brackets s . located es $ \xs -> do
           let p_parBody =
                 sep
                   (breakpoint >> txt "|" >> space)