basis-library/text/string-global.sml

   1 (* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  * Copyright (C) 1997-2000 NEC Research Institute.
   4  *
   5  * MLton is released under a BSD-style license.
   6  * See the file MLton-LICENSE for details.
   7  *)
   8
   9 structure StringGlobal: STRING_GLOBAL = String
  10 open StringGlobal
  11
  12 (* Now that concat is defined, we can add the exnMessager for Fail. *)
  13 val _ =
  14    General.addExnMessager
  15    (fn e =>
  16     case e of
  17        Fail s => SOME (concat ["Fail: ", s])
  18      | _ => NONE)