Use ‘sitcc’ around let-in construction

Due to the “weird” leading space before ‘in’ we get rather unpleasing
results without ‘sitcc’.

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

@@ -21,3 +21,8 @@ implicitParams :: HasCallStack => Int
 implicitParams =
   let ?cs = ?callstack
    in foo cs
+
+sitting =
+  foo
+    $ let x = 20
+       in x

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

@@ -21,3 +21,7 @@ implicitParams :: HasCallStack => Int
 implicitParams =
   let ?cs = ?callstack
   in  foo cs
+
+sitting =
+  foo $ let x = 20
+         in x

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

@@ -578,7 +578,7 @@ p_hsExpr = \case
     txt "if"
     breakpoint
     inci . sitcc $ sep newline (located' (p_grhs RightArrow)) guards
-  HsLet NoExt localBinds e -> do
+  HsLet NoExt localBinds e -> sitcc $ do
     txt "let"
     space
     dontUseBraces $ sitcc (located localBinds p_hsLocalBinds)