tsearch Parser Hacking

Hackers,

Is it possible to modify the default tsearch parser so that / doesn't get lexed as a "file" token? That is, instead of this:

try=# select * from ts_debug('simple'::regconfig, 'w/d');
alias │ description │ token │ dictionaries │ dictionary │ lexemes
───────┼───────────────────┼───────┼──────────────┼────────────┼─────────
file │ File or path name │ w/d │ {simple} │ simple │ {w/d}

Ideally it'd think that / was the same as -:

try=# select * from ts_debug('simple'::regconfig, 'w-d');
alias │ description │ token │ dictionaries │ dictionary │ lexemes
─────────────────┼─────────────────────────────────┼───────┼──────────────┼────────────┼─────────
asciihword │ Hyphenated word, all ASCII │ w-d │ {simple} │ simple │ {w-d}
hword_asciipart │ Hyphenated word part, all ASCII │ w │ {simple} │ simple │ {w}
blank │ Space symbols │ - │ {} │ [null] │ [null]
hword_asciipart │ Hyphenated word part, all ASCII │ d │ {simple} │ simple │ {d}
(4 rows)

Possible? Or would I have to write a completely new parser just to change this bit?

Thanks,

David