misc: Fix formatting

Author: TheBlob42

Marksman/Diag.fs

@@ -108,8 +108,7 @@ let refToHuman (ref: Dest) : string =
     | Dest.Heading (docLink, { data = heading }) ->
         $"heading {Heading.name heading} in the document {Doc.name (DocLink.doc docLink)}"
     | Dest.LinkDef (_, { data = ld }) -> $"link definition {MdLinkDef.name ld}"
-    | Dest.Tag (doc, { data = tag }) ->
-        $"tag {tag.name} in the document {Doc.name doc}"
+    | Dest.Tag (doc, { data = tag }) -> $"tag {tag.name} in the document {Doc.name doc}"
 
 let docRefToHuman (name: string) : string = $"document '{name}'"
 

Marksman/Refs.fs

@@ -328,7 +328,7 @@ module Dest =
                 seq {
                     for targetDoc in targetDocs do
                         match declToFind with
-                        | Dest.Tag(_, tag) ->
+                        | Dest.Tag (_, tag) ->
                             let targets =
                                 Doc.index targetDoc
                                 |> Index.filterTagsByName tag.data.name.text

Tests/RefsTests.fs

@@ -220,7 +220,7 @@ module BasicRefsTests =
                    "Entry 1" // 11
                    "" // 12
                    "## Dup" // 13
-                   "Entry 2"  // 14
+                   "Entry 2" // 14
                    "" // 15
                    "#tag1 #tag2" |] // 16
         )
@@ -263,10 +263,7 @@ module BasicRefsTests =
 
         let refs = Dest.findElementRefs false folder doc2 def |> stripRefs
 
-        checkInlineSnapshot
-            (fun x -> x.ToString())
-            refs
-            [ "(doc1.md, (16,0)-(16,5))" ]
+        checkInlineSnapshot (fun x -> x.ToString()) refs [ "(doc1.md, (16,0)-(16,5))" ]
 
     [<Fact>]
     let refToTag_atTag_withDecl () =