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

Fix Haddock errors.
---

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 2ecbd0e..57bbd02 100644
--- a/compiler/deSugar/DsBinds.lhs
+++ b/compiler/deSugar/DsBinds.lhs
@@ -346,9 +346,9 @@ dsSpec all_tvs dicts tvs poly_id mono_id mono_bind
 	  case mb_lhs of
 	    Nothing -> do { warnDs decomp_msg; return Nothing }
 
-	    Just (_, args) -> do
-	
-	{ f_body <- fix_up (Let mono_bind (Var mono_id))
+	    Just (_, args) -> do {
+
+	  f_body <- fix_up (Let mono_bind (Var mono_id))
 
 	; let	  local_poly  = setIdNotExported poly_id
 			-- Very important to make the 'f' non-exported,
diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 2254ec2..071953f 100644
--- a/compiler/deSugar/DsUtils.lhs
+++ b/compiler/deSugar/DsUtils.lhs
@@ -541,15 +541,15 @@ mkErrorAppDs err_id ty msg = do
 \end{code}
 
 
-*************************************************************
+%************************************************************************
 %*									*
 \subsection{Making literals}
 %*									*
 %************************************************************************
 
 \begin{code}
-mkCharExpr     :: Char	     -> CoreExpr      -- Returns	C# c :: Int
-mkIntExpr      :: Integer    -> CoreExpr      -- Returns	I# i :: Int
+mkCharExpr     :: Char	     -> CoreExpr      -- Returns @C# c :: Int@
+mkIntExpr      :: Integer    -> CoreExpr      -- Returns @I# i :: Int@
 mkIntegerExpr  :: Integer    -> DsM CoreExpr  -- Result :: Integer
 mkStringExpr   :: String     -> DsM CoreExpr  -- Result :: String
 mkStringExprFS :: FastString -> DsM CoreExpr  -- Result :: String