3 lines
123 B
Standard ML
3 lines
123 B
Standard ML
fun writeFile (path, str) =
|
|
(fn strm =>
|
|
TextIO.output (strm, str) before TextIO.closeOut strm) (TextIO.openOut path)
|