Fix formatting

vipentti · Dec 6, 2023 · 684906d · 684906d
1 parent 4e4b679
commit 684906d
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 17 deletions.
diff --git a/src/Visp.Compiler/Syntax/LexHelpers.fs b/src/Visp.Compiler/Syntax/LexHelpers.fs
@@ -260,20 +260,21 @@ let syntaxErrorToParseError (syn: SyntaxError) =
     match syn.Data0 with
     | :? FSharp.Text.Parsing.ParseErrorContext<SyntaxParser.token> as ctx ->
         let (startPos, _) = ctx.ParseState.ResultRange
-        let r = new ParseError (
-            {
-                ReduceTokens = ctx.ReduceTokens
-                ReducibleProductions = ctx.ReducibleProductions
-                ShiftTokens = ctx.ShiftTokens
-                StateStack = ctx.StateStack
-                CurrentToken = ctx.CurrentToken
-                Message = ctx.Message
-                FileName = startPos.FileName
-                Line = startPos.Line
-                Column = startPos.Column
-            },
-            syn,
-            syn.range
-        )
+
+        let r =
+            new ParseError(
+                { ReduceTokens = ctx.ReduceTokens
+                  ReducibleProductions = ctx.ReducibleProductions
+                  ShiftTokens = ctx.ShiftTokens
+                  StateStack = ctx.StateStack
+                  CurrentToken = ctx.CurrentToken
+                  Message = ctx.Message
+                  FileName = startPos.FileName
+                  Line = startPos.Line
+                  Column = startPos.Column },
+                syn,
+                syn.range
+            )
+
         r
     | _ -> failwith "not a valid syntax error"
diff --git a/src/Visp.Compiler/Syntax/Syntax.fs b/src/Visp.Compiler/Syntax/Syntax.fs
@@ -413,8 +413,8 @@ and [<RequireQualifiedAccess>] SynArg =
 
     member d.NameText =
         match d with
-        | TypedArg (name = name)
-        | InferredArg (name = name) -> name.Text
+        | TypedArg(name = name)
+        | InferredArg(name = name) -> name.Text
 
 and VispProgram = VispProgram of directives: SynDirective list * exprs: SynExpr list
 

diff --git a/tests/Visp.Compiler.UnitTests/TestUtils.fs b/tests/Visp.Compiler.UnitTests/TestUtils.fs
@@ -19,10 +19,12 @@ let parseCoreLibs () =
 
         for lib in libs do
             let path = lib.Path
+
             CoreParser.parseFile path lib.ReturnLast
             // TODO: We only really want macros here?
             |> CoreParser.transformFile
             |> ignore
+
         ()
 
     with :? ParseHelpers.SyntaxError as syn ->