[MLton-commit] r6819

[Matthew Fluet]

Formatting

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

U   mlton/trunk/basis-library/mlton/platform.sml

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

Modified: mlton/trunk/basis-library/mlton/platform.sml
===================================================================
--- mlton/trunk/basis-library/mlton/platform.sml	2008-08-30 22:03:48 UTC (rev 6818)
+++ mlton/trunk/basis-library/mlton/platform.sml	2008-09-01 13:19:13 UTC (rev 6819)
@@ -1,4 +1,4 @@
-(* Copyright (C) 2003-2006 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2003-2006, 2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  *
  * MLton is released under a BSD-style license.
@@ -62,16 +62,17 @@
          struct
             open OS
 
-            val all = [(AIX, "AIX"),
-                       (Cygwin, "Cygwin"),
-                       (Darwin, "Darwin"),
-                       (FreeBSD, "FreeBSD"),
-                       (HPUX, "HPUX"),
-                       (Linux, "Linux"),
-                       (MinGW, "MinGW"),
-                       (NetBSD, "NetBSD"),
-                       (OpenBSD, "OpenBSD"),
-                       (Solaris, "Solaris")]
+            val all = [
+                (AIX, "AIX"),
+                (Cygwin, "Cygwin"),
+                (Darwin, "Darwin"),
+                (FreeBSD, "FreeBSD"),
+                (HPUX, "HPUX"),
+                (Linux, "Linux"),
+                (MinGW, "MinGW"),
+                (NetBSD, "NetBSD"),
+                (OpenBSD, "OpenBSD"),
+                (Solaris, "Solaris")]
 
             fun fromString s =
                let