format files related to parser

fcore/parser/all-dfa.sml

@@ -1,17 +1,21 @@
 structure AllDfa =
 struct
-  type t = {curInt: int, curSpace: int, curBrace: int, lastInt: int,
-  lastSpace: int, lastBrace: int}
+  type t =
+    { curInt: int
+    , curSpace: int
+    , curBrace: int
+    , lastInt: int
+    , lastSpace: int
+    , lastBrace: int
+    }
 
   val initial: t =
-    {
-      curInt = IntDfa.start,
-      curSpace = SpaceDfa.start,
-      curBrace = BraceDfa.start,
-
-      lastInt = ~1,
-      lastSpace = ~1,
-      lastBrace = ~1
+    { curInt = IntDfa.start
+    , curSpace = SpaceDfa.start
+    , curBrace = BraceDfa.start
+    , lastInt = ~1
+    , lastSpace = ~1
+    , lastBrace = ~1
     }
 
   fun areAllDead ({curInt, curSpace, curBrace, ...}: t) =
@@ -29,7 +33,12 @@ struct
       val lastSpace = if SpaceDfa.isFinal curSpace then pos else lastSpace
       val lastBrace = if BraceDfa.isFinal curBrace then pos else lastBrace
     in
-      {curInt = curInt, curSpace = curSpace, curBrace = curBrace, lastInt =
-      lastInt, lastBrace = lastBrace, lastSpace = lastSpace}
+      { curInt = curInt
+      , curSpace = curSpace
+      , curBrace = curBrace
+      , lastInt = lastInt
+      , lastBrace = lastBrace
+      , lastSpace = lastSpace
+      }
     end
 end