From: Thomas Schilling <nominolo@googlemail.com>
Date: Sun, 20 Jul 2008 17:31:05 +0000 (+0000)
Subject: Fix Haddock errors.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=268377f59589e6afec1048458c350011ebb74afe

Fix Haddock errors.
---

diff --git a/compiler/utils/GraphPpr.hs b/compiler/utils/GraphPpr.hs
index 1df5158..8149b2a 100644
--- a/compiler/utils/GraphPpr.hs
+++ b/compiler/utils/GraphPpr.hs
@@ -58,9 +58,9 @@ dumpNode node
 dotGraph 
 	:: ( Uniquable k
 	   , Outputable k, Outputable cls, Outputable color)
-	=> (color -> SDoc)		-- | What graphviz color to use for each node color
-					--	It's usually safe to return X11 style colors here,
-					--	ie "red", "green" etc or a hex triplet #aaff55 etc
+	=> (color -> SDoc)  -- ^ What graphviz color to use for each node color
+			    --	It's usually safe to return X11 style colors here,
+			    --	ie "red", "green" etc or a hex triplet #aaff55 etc
 	-> Triv k cls color
 	-> Graph k cls color -> SDoc
 
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs
index b8ab86a..97648b7 100644
--- a/compiler/utils/Panic.lhs
+++ b/compiler/utils/Panic.lhs
@@ -168,7 +168,7 @@ tryUser action = tryJust tc_errors action
   where 
 	tc_errors e@(Exception.IOException ioe) | isUserError ioe = Just e
 	tc_errors _other = Nothing
-\end{code}	
+\end{code}
 
 Standard signal handlers for catching ^C, which just throw an
 exception in the target thread.  The current target thread is