[hcoop/debian/mlton.git] / basis-library / libs / basis-1997 / system / file-sys-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 OSFileSysConvert
        (structure FileSys : OS_FILE_SYS) :
        OS_FILE_SYS_1997 =
  struct
     open FileSys
     val readDir = fn d =>
       case readDir d of
         NONE => ""
       | SOME s => s
  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 OSFileSysConvert
	9	(structure FileSys : OS_FILE_SYS) :
	10	OS_FILE_SYS_1997 =
	11	struct
	12	open FileSys
	13	val readDir = fn d =>
	14	case readDir d of
	15	NONE => ""
	16	\| SOME s => s
	17	end