Commit e8fe3a12 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments and layout

parent 940d1309
......@@ -1498,11 +1498,9 @@ rhsIsStatic _is_dynamic_name rhs = is_static False rhs
is_static False (Lam b e) = isRuntimeVar b || is_static False e
is_static in_arg (Note n e) = notSccNote n && is_static in_arg e
is_static in_arg (Cast e _) = is_static in_arg e
is_static _ (Lit lit)
= case lit of
MachLabel _ _ _ -> False
_ -> True
is_static _ (Coercion {}) = True -- Behaves just like a literal
is_static _ (Lit (MachLabel {})) = False
is_static _ (Lit _) = True
-- A MachLabel (foreign import "&foo") in an argument
-- prevents a constructor application from being static. The
-- reason is that it might give rise to unresolvable symbols
......
......@@ -148,8 +148,8 @@ data HsBindLR idL idR
abs_ev_vars :: [EvVar], -- Includes equality constraints
-- AbsBinds only gets used when idL = idR after renaming,
-- but these need to be idL's for the collect... code in HsUtil to have
-- the right type
-- but these need to be idL's for the collect... code in HsUtil
-- to have the right type
abs_exports :: [([TyVar], idL, idL, TcSpecPrags)], -- (tvs, poly_id, mono_id, prags)
abs_ev_binds :: TcEvBinds, -- Evidence bindings
......@@ -378,7 +378,7 @@ data HsWrapper
= WpHole -- The identity coercion
| WpCompose HsWrapper HsWrapper
-- (wrap1 `WpCompse` wrap2)[e] = wrap1[ wrap2[ e ]]
-- (wrap1 `WpCompose` wrap2)[e] = wrap1[ wrap2[ e ]]
--
-- Hence (\a. []) `WpCompose` (\b. []) = (\a b. [])
-- But ([] a) `WpCompose` ([] b) = ([] b a)
......
......@@ -672,7 +672,6 @@ type HsRecordBinds id = HsRecFields id (LHsExpr id)
\end{code}
%************************************************************************
%* *
\subsection{@Match@, @GRHSs@, and @GRHS@ datatypes}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment