From 5628f93db6047b771bc5bbac95885f3e0b794ed2 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Fri, 17 Aug 2007 18:21:29 +0000 Subject: [PATCH] Fix some Haddock syntax (comments that shouldn't have been Haddock) --- TreeUtil.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/TreeUtil.hs b/TreeUtil.hs index 48df488..f0710c4 100644 --- a/TreeUtil.hs +++ b/TreeUtil.hs @@ -63,9 +63,9 @@ assertGenEqualPlain s x y = do case (checkEqual x y) of False -> [s ++ " Items not equal, expected:\n" ++ (PS.pshow x) ++ "\n***but got:\n " ++ (PS.pshow y)] where checkEqual x y = case (cast y) of - -- | Same type, use the library-provided geq function to compare them + -- Same type, use the library-provided geq function to compare them Just y' -> geq x y' - -- | Different types, so not equal + -- Different types, so not equal Nothing -> False -- | A data item used when matching items of interest. Note that it is similar to Pattern but not the same;