> I've attached the diffs of the changes I had to make
> in order to get Fran to load up OK. The changes are
> exactly those that Michael Abbott reported, but
> (hopefully) in a more machine processable form.
>
> --Sigbjorn
Here's a diff for those of us working on Unix systems (the diff Sigbj�rn posted had
MSDOS line-ends).
cd /usr/local/lib/hugs/lib
patch -R -i lib.diff
*** Monad.hs Fri Mar 12 11:25:31 1999
--- Monad.hs-orig Mon Feb 22 02:22:00 1999
***************
*** 15,19 ****
Monad((>>=), (>>), return, fail),
Functor(fmap),
! mapM, mapM_, sequence, sequence_, (=<<),
) where
--- 15,19 ----
Monad((>>=), (>>), return, fail),
Functor(fmap),
! mapM, mapM_, accumulate, sequence, (=<<),
) where
***************
*** 56,66 ****
mapAndUnzipM :: (Monad m) => (a -> m (b,c)) -> [a] -> m ([b], [c])
! mapAndUnzipM f xs = sequence (map f xs) >>= return . unzip
zipWithM :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m [c]
! zipWithM f xs ys = sequence (zipWith f xs ys)
zipWithM_ :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m ()
! zipWithM_ f xs ys = sequence_ (zipWith f xs ys)
foldM :: (Monad m) => (a -> b -> m a) -> a -> [b] -> m a
--- 56,66 ----
mapAndUnzipM :: (Monad m) => (a -> m (b,c)) -> [a] -> m ([b], [c])
! mapAndUnzipM f xs = accumulate (map f xs) >>= return . unzip
zipWithM :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m [c]
! zipWithM f xs ys = accumulate (zipWith f xs ys)
zipWithM_ :: (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m ()
! zipWithM_ f xs ys = sequence (zipWith f xs ys)
foldM :: (Monad m) => (a -> b -> m a) -> a -> [b] -> m a
*** exts/Channel.lhs Fri Mar 12 11:22:27 1999
--- exts/Channel.lhs-orig Mon Feb 22 02:22:00 1999
***************
*** 158,162 ****
-------------
writeList2Chan :: Chan a -> [a] -> IO ()
! writeList2Chan ch ls = sequence_ (map (writeChan ch) ls)
\end{code}
--- 158,162 ----
-------------
writeList2Chan :: Chan a -> [a] -> IO ()
! writeList2Chan ch ls = sequence (map (writeChan ch) ls)
\end{code}
: Keith Wansbrough, MSc, BSc(Hons) (Auckland) ------------------------:
: PhD Student, Computer Laboratory, University of Cambridge, England. :
: (and recently of the University of Glasgow, Scotland. [><] ) :
: Native of Antipodean Auckland, New Zealand: 174d47' E, 36d55' S. :
: http://www.cl.cam.ac.uk/users/kw217/ mailto:[EMAIL PROTECTED] :
:---------------------------------------------------------------------:
