Fix Haddock errors.

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 2ecbd0e..57bbd02 100644 (file)
--- 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 (file)
--- 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