needsSRT (C_SRT _ _ _) = True
instance Outputable C_SRT where
- ppr (NoC_SRT) = ptext SLIT("_no_srt_")
+ ppr (NoC_SRT) = ptext (sLit "_no_srt_")
ppr (C_SRT label off bitmap) = parens (ppr label <> comma <> ppr off <> comma <> text (show bitmap))
\end{code}
ReturnCon con
getCallMethod name (LFThunk _ _ updatable std_form_info is_fun) n_args
- | is_fun -- *Might* be a function, so we must "call" it (which is always safe)
+ | is_fun -- it *might* be a function, so we must "call" it (which is
+ -- always safe)
= SlowCall -- We cannot just enter it [in eval/apply, the entry code
-- is the fast-entry code]
AppTy fun _ -> getTyDescription fun
FunTy _ res -> '-' : '>' : fun_result res
TyConApp tycon _ -> getOccString tycon
- NoteTy (FTVNote _) ty -> getTyDescription ty
PredTy sty -> getPredTyDescription sty
ForAllTy _ ty -> getTyDescription ty
}