projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
62c7959
)
Zap stray whitespace in lhs formatting
author
Samuel Bronson
<naesten@gmail.com>
Fri, 10 Nov 2006 18:36:33 +0000
(18:36 +0000)
committer
Samuel Bronson
<naesten@gmail.com>
Fri, 10 Nov 2006 18:36:33 +0000
(18:36 +0000)
compiler/basicTypes/BasicTypes.lhs
patch
|
blob
|
history
compiler/iface/LoadIface.lhs
patch
|
blob
|
history
compiler/simplCore/Simplify.lhs
patch
|
blob
|
history
compiler/typecheck/TcBinds.lhs
patch
|
blob
|
history
compiler/typecheck/TcForeign.lhs
patch
|
blob
|
history
compiler/typecheck/TcGadt.lhs
patch
|
blob
|
history
compiler/typecheck/TcInstDcls.lhs
patch
|
blob
|
history
compiler/typecheck/TcUnify.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/BasicTypes.lhs
b/compiler/basicTypes/BasicTypes.lhs
index
278a284
..
35c57f3
100644
(file)
--- 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 )
data RecFlag = Recursive
| NonRecursive
deriving( Eq )
diff --git
a/compiler/iface/LoadIface.lhs
b/compiler/iface/LoadIface.lhs
index
9c89f18
..
8625a1a
100644
(file)
--- 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"]
]
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
(file)
--- 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
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
(file)
--- 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
<+> quotes (ppr tidy_tv2)
; failWithTcM (env2, msg) }
where
-\end{code}
+\end{code}
@getTyVarsToGen@ decides what type variables to generalise over.
@getTyVarsToGen@ decides what type variables to generalise over.
diff --git
a/compiler/typecheck/TcForeign.lhs
b/compiler/typecheck/TcForeign.lhs
index
705a3c3
..
c78b469
100644
(file)
--- 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)
case check target of
Nothing -> returnM ()
Just err -> addErrTc (text "Illegal foreign declaration:" <+> err)
-\end{code}
+\end{code}
Calling conventions
Calling conventions
diff --git
a/compiler/typecheck/TcGadt.lhs
b/compiler/typecheck/TcGadt.lhs
index
987a4c6
..
3761c68
100644
(file)
--- 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)
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
(file)
--- 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)
mkLocalFamInstTyThing (ATyCon tycon) = mkLocalFamInst tycon
mkLocalFamInstTyThing tything = pprPanic "TcInstDcls.addFamInsts"
(ppr tything)
-\end{code}
+\end{code}
\begin{code}
tcLocalInstDecl1 :: LInstDecl Name
\begin{code}
tcLocalInstDecl1 :: LInstDecl Name
diff --git
a/compiler/typecheck/TcUnify.lhs
b/compiler/typecheck/TcUnify.lhs
index
e24ea65
..
5fcaea6
100644
(file)
--- 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) }
; res <- tc_infer (mkTyVarTy box)
; res_ty <- readFilledBox box -- Guaranteed filled-in by now
; return (res, res_ty) }
-\end{code}
+\end{code}
%************************************************************************
%************************************************************************