patch applied (ghc): Make "make tags" work in the new build system

[Simon Peyton-Jones]

Ian

| Sun Feb 21 08:44:32 PST 2010  Ian Lynagh <igloo at earth.li>
|   * Make "make tags" work in the new build system

Thanks.  This does construct a file 'tags' in $(TOP), snippet below.  

Alas emacs says 'not a valid tags table'.  

The old TAGS file I have looks like the second snippet below.

Any ideas?

Simon


========= New 'tags' file made by 'make tags' =============

getCoreModuleName	compiler/parser/ParserCoreUtils.hs	21
failP	compiler/parser/ParserCoreUtils.hs	18
returnP	compiler/parser/ParserCoreUtils.hs	15
thenP	compiler/parser/ParserCoreUtils.hs	9
Token	compiler/parser/ParserCoreUtils.hs	38
TKEOF	compiler/parser/ParserCoreUtils.hs	75
TKchar	compiler/parser/ParserCoreUtils.hs	74
TKstring	compiler/parser/ParserCoreUtils.hs	73
TKrational	compiler/parser/ParserCoreUtils.hs	72
TKinteger	compiler/parser/ParserCoreUtils.hs	71


========= Old TAGS file make by 'hasktags' (I think) =========

(there are some Ctrl-L's in here, and Ctrl-?)


parser/Parser.y.pp,6920
module Parser17,18
1 for ambiguity in '{-# RULES "name" forall = ...145,146
1 for ambiguity when the source file starts with "-- | doc".153,154
	| 'newtype'181,182
	| qcon355,356
	| qvarop356,357
	| qconop357,358
    | '('358,359
        | body2375,376
        | {-383,384
	|  {-390,391
 	|      vocurly394,395
 	|  missing_module_keyword398,399
	| importdecls402,403
	| cvtopdecls403,404
	| missing_module_keyword416,417
 	|      vocurly423,424
	|  {-430,431
	| exportlist1434,435
 	| expdoclist438,439
	| expdoclist439,440
        | {-443,444
        | docnamed447,448
        | docnext448,449
	|  oqtycon454,455
	|  oqtycon455,456
	|  oqtycon456,457
	|  oqtycon457,458
	|  'module'458,459
	|  qcname_ext462,463
	|  'type'467,468
	|  qcon474,475
	| importdecls484,485
	| importdecl485,486
	| {-486,487
	| {-494,495
      	| {-498,499
      	| {-502,503
	| {-506,507
	|  'hiding'510,511
	| INTEGER517,518
	| 'infixl'521,522
	| 'infixr'522,523
	| op526,527
        | topdecls533,534
	| topdecl534,535
  	| ty_decl538,539
	| 'instance'539,540
   L0,163,164
   L0, L1, LL163,164
 '::'264,265
%name344,345
	    { let (binds, sigs, ats, _) = cvBindsAndSigs540,541
        | stand_alone_deriving543,544
	| 'default'544,545
	| 'foreign'545,546
	| '{-#546,547
	| '{-#547,548
      	| decl548,549
	| '$('551,552
	| TH_ID_SPLICE552,553
identifier353,354
module 	:: {370,371
maybedocheader381,382
missing_module_keyword385,386
maybemoddeprec388,389
body392,393
body2396,397
top400,401