← Back to branch summary

~ubuntu-branches/ubuntu/utopic/haskell-uulib/utopic

~ubuntu-branches/ubuntu/utopic/haskell-uulib/utopic

« back to all changes in this revision

Viewing changes to src/UU/Scanner/GenToken.hs

Committer: Bazaar Package Importer
Author(s): Arjan Oosting
Date: 2006-11-18 16:24:30 UTC
Revision ID: james.westby@ubuntu.com-20061118162430-24ddyj27kj0uk17v

Tags: upstream-0.9.2

Import upstream version 0.9.2

files added:

COPYRIGHT

LICENSE-LGPL

Makefile.in

README

Setup.hs

VERSION

configure

configure.in

src

src/UU

src/UU/DData

src/UU/DData/IntBag.hs

src/UU/DData/IntMap.hs

src/UU/DData/IntSet.hs

src/UU/DData/Map.hs

src/UU/DData/MultiSet.hs

src/UU/DData/Queue.hs

src/UU/DData/Scc.hs

src/UU/DData/Seq.hs

src/UU/DData/Set.hs

src/UU/PPrint.hs

src/UU/Parsing

src/UU/Parsing.hs

src/UU/Parsing/CharParser.hs

src/UU/Parsing/Derived.hs

src/UU/Parsing/Interface.hs

src/UU/Parsing/Machine.hs

src/UU/Parsing/MachineInterface.hs

src/UU/Parsing/Merge.hs

src/UU/Parsing/Offside.hs

src/UU/Parsing/Perms.hs

src/UU/Parsing/StateParser.hs

src/UU/Pretty

src/UU/Pretty.hs

src/UU/Pretty/Basic.hs

src/UU/Pretty/Ext.hs

src/UU/Scanner

src/UU/Scanner.hs

src/UU/Scanner/GenToken.hs

src/UU/Scanner/GenTokenOrd.hs

src/UU/Scanner/GenTokenParser.hs

src/UU/Scanner/GenTokenSymbol.hs

src/UU/Scanner/Position.hs

src/UU/Scanner/Scanner.hs

src/UU/Scanner/Token.hs

src/UU/Scanner/TokenParser.hs

src/UU/Scanner/TokenShow.hs

src/UU/Util

src/UU/Util/BinaryTrees.hs

src/UU/Util/PermTree.hs

src/UU/Util/Utils.hs

uulib.cabal

uulib.cabal.in

Show diffs side-by-side

added added

removed removed

src/UU/Scanner/GenToken.hs

1

module UU.Scanner.GenToken where

2

3

import UU.Scanner.Position(Pos)

4

5

data GenToken key tp val = Reserved !key !Pos

6

| ValToken !tp val !Pos

7

8

position :: GenToken k t v -> Pos

9

position tok = case tok of

10

Reserved _ p -> p

11

ValToken _ _ p -> p

b'\\ No newline at end of file'

Older »