prTypeNotFound Some id 
    =    text "Could not obtain the type from" 
      $$ nest 4 (ppr id <+> text "::" <+> ppr (varType id) ) 
pprTypeNotFound Some id 
    =    text "Could not obtain the type from" 
      $$ nest 4 (ppr id <+> text "::" <+> ppr (varType id) )
pprTypeNotFound Some id 
    =    text "Could not obtain the type from" 
      $$ nest 4 (ppr id <+> text "::" <+> ppr (varType id) )