[m-rev.] diff: fix compilation errrors in extras

[Julien Fischer]

Estimated hours taken: 0.5
Branches: main, release

Fix some minor compilation problems in the extras distribution.

extras/curses/user.m:
extras/graphics/easyx/samples/bounce.m:
extras/graphics/easyx/samples/scribble.m:
	Conform to recent changes in the standard library.

extras/moose/samples/try_alpha.m:
extras/moose/samples/try_expr.m:
	Replace use of ':' as a module qualifier.

Julien.

Index: curses/user.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/curses/user.m,v
retrieving revision 1.8
diff -u -r1.8 user.m
--- curses/user.m	30 Mar 2006 01:21:16 -0000	1.8
+++ curses/user.m	31 May 2006 06:12:30 -0000
@@ -148,7 +148,7 @@
 %----------------------------------------------------------------------------%

 :- import_module mcurses.misc, mcurses.basics.
-:- import_module array, char, int, list, require, std_util, store, string.
+:- import_module array, char, int, list, require, solutions, store, string.

 :- type curse_store_type ---> curse_store_type.
 :- type curse_store == store(curse_store_type).
Index: graphics/easyx/samples/bounce.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/graphics/easyx/samples/bounce.m,v
retrieving revision 1.2
diff -u -r1.2 bounce.m
--- graphics/easyx/samples/bounce.m	29 Sep 2004 23:42:03 -0000	1.2
+++ graphics/easyx/samples/bounce.m	31 May 2006 06:15:16 -0000
@@ -44,8 +44,8 @@
 :- import_module float.
 :- import_module int.
 :- import_module list.
+:- import_module maybe.
 :- import_module random.
-:- import_module std_util.
 :- import_module string.
 :- import_module time.

@@ -248,8 +248,7 @@


 :- pred play(window::in, colours::in, paddle::in, paddle::out,
-            objects::in, objects::out, rnd::in, rnd::out,
-            io::di, io::uo) is det.
+    objects::in, objects::out, rnd::in, rnd::out, io::di, io::uo) is det.

 play(Window, Colours, !Paddle, !Objects, !Rnd, !IO) :-

Index: graphics/easyx/samples/scribble.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/graphics/easyx/samples/scribble.m,v
retrieving revision 1.1
diff -u -r1.1 scribble.m
--- graphics/easyx/samples/scribble.m	28 Sep 2004 02:10:41 -0000	1.1
+++ graphics/easyx/samples/scribble.m	31 May 2006 06:16:20 -0000
@@ -47,7 +47,7 @@
 :- import_module easyx.
 :- import_module float.
 :- import_module list.
-:- import_module std_util.
+:- import_module maybe.

 :- type maybexy == maybe({float, float}).

Index: moose/samples/try_alpha.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/moose/samples/try_alpha.m,v
retrieving revision 1.2
diff -u -r1.2 try_alpha.m
--- moose/samples/try_alpha.m	19 Feb 2002 07:49:49 -0000	1.2
+++ moose/samples/try_alpha.m	31 May 2006 06:21:19 -0000
@@ -4,8 +4,7 @@

 :- import_module io.

-:- pred main(io:state, io:state).
-:- mode main(di, uo) is det.
+:- pred main(io::di, io::uo) is det.

 :- implementation.

Index: moose/samples/try_expr.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/moose/samples/try_expr.m,v
retrieving revision 1.2
diff -u -r1.2 try_expr.m
--- moose/samples/try_expr.m	19 Feb 2002 07:49:49 -0000	1.2
+++ moose/samples/try_expr.m	31 May 2006 06:21:41 -0000
@@ -4,8 +4,7 @@

 :- import_module io.

-:- pred main(io:state, io:state).
-:- mode main(di, uo) is det.
+:- pred main(io::di, io::uo) is det.

 :- implementation.


--------------------------------------------------------------------------
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
--------------------------------------------------------------------------