140     ppr (LFReEntrant top rep fvs argdesc) =
142         (ppr top <+> ppr rep <+> pprFvs fvs <+> ppr argdesc)
143     ppr (LFThunk top hasfv updateable sfi m_function) =
145         (ppr top <+> pprFvs hasfv <+> pprUpdateable updateable <+>
146          ppr sfi <+> pprFuncFlag m_function)
147     ppr (LFCon con) =
148       text "LFCon" <> brackets (ppr con)
149     ppr (LFUnknown m_func) =
151     ppr LFUnlifted =
153     ppr LFLetNoEscape =
197   ppr (ArgSpec n) = text "ArgSpec" <+> ppr n  function
198   ppr (ArgGen ls) = text "ArgGen" <+> ppr ls  function
199   ppr ArgUnknown = text "ArgUnknown"  function
231   ppr NonStandardThunk = text "RegThunk"  function
232   ppr (SelectorThunk w) = text "SelThunk:" <> ppr w  function
233   ppr (ApThunk n) = text "ApThunk:" <> ppr n  function