Fixes Formatting Bug

src/fsharp/vs/ServiceFormatting/TokenMatcher.fs

@@ -76,6 +76,11 @@ let (|RawDelimiter|_|) = function
         Some origTokText
     | _ -> None
 
+let (|RawComment|_|) = function
+     | (Token origTok, origTokText) when origTok.CharClass = FSharpTokenCharKind.Comment -> 
+         Some origTokText
+     | _ -> None
+
 let (|RawAttribute|_|) = function
     | RawDelimiter "[<" :: moreOrigTokens -> 
         let rec loop ts acc = 
@@ -572,6 +577,11 @@ let integrateComments (originalText : string) (newText : string) =
                 maintainIndent (fun () -> 
                     for x in commentTokensText do addText x)
                 loop moreOrigTokens moreNewTokens 
+
+        | (_ :: moreOrigTokens), (RawComment newTokText :: moreNewTokens) ->
+            addText newTokText 
+            loop moreOrigTokens moreNewTokens
+
 
         // Emit end-of-line from new tokens
         | _,  (NewLine newTokText :: moreNewTokens) ->

vsintegration/tests/unittests/ServiceFormatting/CommentTests.fs

@@ -363,3 +363,25 @@ let hello() = "hello world"
 let hello() = "hello world"
 (* This is a comment. *)
 """
+
+[<Test>]
+let ``should keep comments inside unit``() =
+    formatSourceString false """
+let x =
+    ((*comment*))
+    printf "a"
+    // another comment 1
+    printf "b"
+    // another comment 2
+    printf "c"
+"""  config
+    |> prepend newline
+    |> should equal """
+let x =
+    ((*comment*))
+    printf "a"
+    // another comment 1
+    printf "b"
+    // another comment 2
+    printf "c"
+"""