[MLton-commit] r5967

[Vesa Karvonen]

Whitespace.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/data-rec-info.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/data-rec-info.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/data-rec-info.sml	2007-08-27 15:47:26 UTC (rev 5966)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/data-rec-info.sml	2007-08-27 15:50:11 UTC (rev 5967)
@@ -60,7 +60,7 @@
       val isoSum     = const
 
       fun op *` (INP l, INP r) =
-          INP {exn  = #exn l orelse #exn r, recs = merge (#recs l, #recs r)}
+          INP {exn = #exn l orelse #exn r, recs = merge (#recs l, #recs r)}
       fun T (INT {exn, recs, ...}) = INP {exn = exn, recs = recs}
       fun R _ = T
       fun tuple (INP {exn, recs, ...}) =
@@ -68,7 +68,7 @@
       val record = tuple
 
       fun op +` (INS l, INS r) =
-          INS {exn  = #exn l orelse #exn r, recs = merge (#recs l, #recs r)}
+          INS {exn = #exn l orelse #exn r, recs = merge (#recs l, #recs r)}
       val unit = base
       fun C0 _ = INS {exn = false, recs = []}
       fun C1 _ (INT {exn, recs, ...}) = INS {exn = exn, recs = recs}