lib/mlton/basic/exn.sml

   1 (* Copyright (C) 2017 Matthew Fluet.
   2  * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 structure Exn:> EXN =
  10 struct
  11
  12 open Exn0
  13
  14 fun layout e =
  15    Layout.str (message e)
  16
  17 val toString = Layout.toString o layout
  18
  19 end