basis-library/config/default/default-char8.sml

   1 (* Copyright (C) 1999-2006 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 Char = Char8
   9 type char = Char.char
  10 structure String = String8
  11 type string = String.string
  12
  13 functor Char_ChooseChar (A: CHOOSE_CHARN_ARG) :
  14    sig val f : Char.char A.t end =
  15    ChooseCharN_Char8 (A)
  16
  17 functor String_ChooseString (A: CHOOSE_STRINGN_ARG) :
  18    sig val f : String.string A.t end =
  19    ChooseStringN_String8 (A)