lib/mlton/basic/unit.sml

   1 (* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 structure Unit: UNIT =
   9 struct
  10
  11 type t = unit
  12
  13 val equals = fn ((), ()) => true
  14
  15 fun layout() = Layout.str"()"
  16
  17 end