basis-library/libs/basis-1997/system/path-convert.fun

   1 (* Copyright (C) 2003-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 functor OSPathConvert
   9         (structure Path : OS_PATH) :
  10         OS_PATH_1997 =
  11   struct
  12      open Path
  13
  14      val mkAbsolute = fn (path, relativeTo) =>
  15        mkAbsolute {path = path, relativeTo = relativeTo}
  16      val mkRelative = fn (path, relativeTo) =>
  17        mkRelative {path = path, relativeTo = relativeTo}
  18   end