From: ross <unknown>
Date: Thu, 13 Jan 2005 10:46:36 +0000 (+0000)
Subject: [project @ 2005-01-13 10:46:36 by ross]
X-Git-Tag: nhc98-1-18-release~119
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6da27616340f00cb0fa767c953cc8cca0b86f879;p=ghc-base.git

[project @ 2005-01-13 10:46:36 by ross]
make comments ASCII
---

diff --git a/Data/Tree.hs b/Data/Tree.hs
index 5d91af8..5c95f2a 100644
--- a/Data/Tree.hs
+++ b/Data/Tree.hs
@@ -104,7 +104,7 @@ unfoldForestM f = mapM (unfoldTreeM f)
 
 -- | Monadic tree builder, in breadth-first order,
 -- using an algorithm adapted from
--- /Breadth­First Numbering: Lessons from a Small Exercise in Algorithm Design/,
+-- /Breadth-First Numbering: Lessons from a Small Exercise in Algorithm Design/,
 -- by Chris Okasaki, /ICFP'00/.
 unfoldTreeM_BF :: Monad m => (b -> m (a, [b])) -> b -> m (Tree a)
 unfoldTreeM_BF f b = liftM (fst . fromJust . deQueue) $
@@ -112,7 +112,7 @@ unfoldTreeM_BF f b = liftM (fst . fromJust . deQueue) $
 
 -- | Monadic forest builder, in breadth-first order,
 -- using an algorithm adapted from
--- /Breadth­First Numbering: Lessons from a Small Exercise in Algorithm Design/,
+-- /Breadth-First Numbering: Lessons from a Small Exercise in Algorithm Design/,
 -- by Chris Okasaki, /ICFP'00/.
 unfoldForestM_BF :: Monad m => (b -> m (a, [b])) -> [b] -> m (Forest a)
 unfoldForestM_BF f = liftM (reverseOnto []) . unfoldForestQ f . listToQueue