format files related to parser

fcore/parser/brace-dfa.sml

@@ -1,17 +1,12 @@
-structure BraceDfa = 
-struct 
+structure BraceDfa =
+struct
   val dead = 0
   val start = 1
   val final = 2
 
   fun makeStart i =
-    let
-      val chr = Char.chr i
-    in
-      if chr = #"{" orelse chr = #"}" then
-        final
-      else
-        dead
+    let val chr = Char.chr i
+    in if chr = #"{" orelse chr = #"}" then final else dead
     end
 
   val deadTable = SpaceDfa.deadTable
@@ -20,8 +15,7 @@ struct
 
   val tables = #[deadTable, startTable, finalTable]
 
-  fun isFinal state =
-    state = final
+  fun isFinal state = state = final
 
   fun next (state, chr) =
     let