SpecialNames

Plain source file: base/AST/SpecialNames.hs (2003-09-30)

SpecialNames is imported by: HasBaseStruct, HsConstants, HsPatUtil, Names, TiHsName, TiInstanceDB, TiNames, TiPNT, TiPretty, SourceNames, SyntaxRec, SyntaxRecPretty, PropSyntaxRec.

module SpecialNames where

class HasSpecialNames i where
  list_tycon_name,fun_tycon_name,char_tycon_name :: i -- "[]", "(->)", "Char"
  tuple_tycon_name :: Int-> i -- tuple_tycon_name 2 = "(,,)"

  tuple_name          :: Int -> i

  -- a bit of a hack...
  tuple_name          = tuple_tycon_name


class Eq i => IsSpecialName i where
  is_list_tycon_name, is_fun_tycon_name, is_char_tycon_name :: i->Bool
  is_tuple_tycon_name :: Int->i->Bool

  is_tuple_name     :: Int -> i -> Bool
  is_tuple_name     = is_tuple_tycon_name


std_is_list_tycon_name i      = i==list_tycon_name
std_is_fun_tycon_name i       = i==fun_tycon_name
std_is_char_tycon_name i      = i==char_tycon_name
std_is_tuple_tycon_name n i   = i==tuple_tycon_name n

std_is_tuple_name n i         = i==tuple_name n

Index

(HTML for this module was generated on 2006-08-12. About the conversion tool.)