[hcoop/debian/mlton.git] / basis-library / libs / basis-1997 / io / bin-io-convert.fun

(* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

functor BinIOConvert
        (structure BinIO: BIN_IO) :
        BIN_IO_1997 =
  struct
     open BinIO

     structure StreamIO =
        struct
           open StreamIO
           val inputAll = #1 o inputAll
        end
  end
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 2002-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	functor BinIOConvert
	9	(structure BinIO: BIN_IO) :
	10	BIN_IO_1997 =
	11	struct
	12	open BinIO
	13
	14	structure StreamIO =
	15	struct
	16	open StreamIO
	17	val inputAll = #1 o inputAll
	18	end
	19	end