[MLton-commit] r5568

[Vesa Karvonen]

Indentation
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/misc-util/unstable/qc-test-example.sml

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

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/qc-test-example.sml
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/qc-test-example.sml	2007-05-19 22:36:57 UTC (rev 5567)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/qc-test-example.sml	2007-05-20 21:13:16 UTC (rev 5568)
@@ -28,12 +28,11 @@
       val stableSort = mk stableSort
    end
 
-   val sortedList =
-       let
-          val l = list int
-       in
-          withGen (RanQD1Gen.Monad.map stableSort (arbitrary l)) l
-       end
+   val sortedList = let
+      val l = list int
+   in
+      withGen (RanQD1Gen.Monad.map stableSort (arbitrary l)) l
+   end
 
    (* Note that one can (of course) make local auxiliary definitions, like
     * here, to help with testing.