[m-rev.] for review: document `--use-grade-subdirs'

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

compiler/modules.m:
	Fix a bug in my previous change -- use the correct
	streams when copying a file.

Index: modules.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/modules.m,v
retrieving revision 1.250
diff -u -u -r1.250 modules.m
--- modules.m	31 Oct 2002 14:47:01 -0000	1.250
+++ modules.m	1 Nov 2002 02:04:19 -0000
@@ -1093,9 +1093,9 @@
 			{ DestRes = ok(OutputStream) },
 			% XXX Depending on file size it may be
 			% faster to call the system's cp command.
-			io__binary_input_stream_foldl_io(
+			io__binary_input_stream_foldl_io(InputStream,
 				(pred(Char::in, di, uo) is det -->
-					io__write_byte(Char)
+					io__write_byte(OutputStream, Char)
 				),
 				Res),
 			io__close_binary_input(InputStream),
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------