From e68a891932d615590d9b1ab5752ada8142db5053 Mon Sep 17 00:00:00 2001 From: Samuel Bronson Date: Fri, 10 Nov 2006 18:36:33 +0000 Subject: [PATCH] Zap stray whitespace in lhs formatting --- compiler/basicTypes/BasicTypes.lhs | 2 +- compiler/iface/LoadIface.lhs | 2 +- compiler/simplCore/Simplify.lhs | 2 +- compiler/typecheck/TcBinds.lhs | 2 +- compiler/typecheck/TcForeign.lhs | 2 +- compiler/typecheck/TcGadt.lhs | 2 +- compiler/typecheck/TcInstDcls.lhs | 2 +- compiler/typecheck/TcUnify.lhs | 2 +- 8 files changed, 8 insertions(+), 8 deletions(-) diff --git a/compiler/basicTypes/BasicTypes.lhs b/compiler/basicTypes/BasicTypes.lhs index 278a284..35c57f3 100644 --- a/compiler/basicTypes/BasicTypes.lhs +++ b/compiler/basicTypes/BasicTypes.lhs @@ -236,7 +236,7 @@ isBoxed Unboxed = False %* * %************************************************************************ -\begin{code} +\begin{code} data RecFlag = Recursive | NonRecursive deriving( Eq ) diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index 9c89f18..8625a1a 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -518,7 +518,7 @@ ifaceStats eps hsep [ int (n_rules_out stats), text "rule decls imported, out of", int (n_rules_in stats), text "read"] ] -\end{code} +\end{code} %************************************************************************ diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index 5b68cc5..28193eb 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -553,7 +553,7 @@ completeBind env top_lvl old_bndr new_bndr new_rhs loop_breaker = isNonRuleLoopBreaker occ_info old_info = idInfo old_bndr occ_info = occInfo old_info -\end{code} +\end{code} diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs index 9e0b583..95f3d41 100644 --- a/compiler/typecheck/TcBinds.lhs +++ b/compiler/typecheck/TcBinds.lhs @@ -827,7 +827,7 @@ checkDistinctTyVars sig_tvs <+> quotes (ppr tidy_tv2) ; failWithTcM (env2, msg) } where -\end{code} +\end{code} @getTyVarsToGen@ decides what type variables to generalise over. diff --git a/compiler/typecheck/TcForeign.lhs b/compiler/typecheck/TcForeign.lhs index 705a3c3..c78b469 100644 --- a/compiler/typecheck/TcForeign.lhs +++ b/compiler/typecheck/TcForeign.lhs @@ -309,7 +309,7 @@ checkCg check case check target of Nothing -> returnM () Just err -> addErrTc (text "Illegal foreign declaration:" <+> err) -\end{code} +\end{code} Calling conventions diff --git a/compiler/typecheck/TcGadt.lhs b/compiler/typecheck/TcGadt.lhs index 987a4c6..3761c68 100644 --- a/compiler/typecheck/TcGadt.lhs +++ b/compiler/typecheck/TcGadt.lhs @@ -184,7 +184,7 @@ gadtRefine (Reft in_scope env1) do_one reft co_var = unify reft (TyVarTy co_var) ty1 ty2 where (ty1,ty2) = splitCoercionKind (tyVarKind co_var) -\end{code} +\end{code} %************************************************************************ %* * diff --git a/compiler/typecheck/TcInstDcls.lhs b/compiler/typecheck/TcInstDcls.lhs index 10bfed7..b0ca87a 100644 --- a/compiler/typecheck/TcInstDcls.lhs +++ b/compiler/typecheck/TcInstDcls.lhs @@ -221,7 +221,7 @@ addFamInsts tycons thing_inside mkLocalFamInstTyThing (ATyCon tycon) = mkLocalFamInst tycon mkLocalFamInstTyThing tything = pprPanic "TcInstDcls.addFamInsts" (ppr tything) -\end{code} +\end{code} \begin{code} tcLocalInstDecl1 :: LInstDecl Name diff --git a/compiler/typecheck/TcUnify.lhs b/compiler/typecheck/TcUnify.lhs index e24ea65..5fcaea6 100644 --- a/compiler/typecheck/TcUnify.lhs +++ b/compiler/typecheck/TcUnify.lhs @@ -65,7 +65,7 @@ tcInfer tc_infer ; res <- tc_infer (mkTyVarTy box) ; res_ty <- readFilledBox box -- Guaranteed filled-in by now ; return (res, res_ty) } -\end{code} +\end{code} %************************************************************************ -- 1.7.10.4