← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/UU/Parsing/StateParser.hs

  • Committer: Bazaar Package Importer
  • Author(s): Marco Túlio Gontijo e Silva
  • Date: 2009-04-08 20:01:10 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20090408200110-96hu9fr918e1wsr1
Tags: 0.9.10-0.1
http://bugs.debian.org/523214
* Non-maintainer upload.
* New upstream version.  Closes: #523214.
* Use new version of haskell-devscripts.
* debian/control:
  - Use new Standards-Version.
  - cpphs is not Indep.
* debian/patches: Remove directory.
* debian/haskell-uulib-doc.doc-base: haddock's file are stored now in
  /usr/share/libghc6-uulib-doc/html/.
* debian/haskell-uulib-doc.examples: Create file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/UU/Parsing/StateParser.hs
1
1
module UU.Parsing.StateParser(StateParser(..)) where
 
2
import GHC.Prim
2
3
import UU.Parsing.MachineInterface
3
4
import UU.Parsing.Machine(AnaParser, ParsRec(..),RealParser(..),RealRecogn(..), mkPR, anaDynE)
4
5
 
7
8
                  Left'   x xs   -> Left'  x (xs, st)
8
9
                  Right'  xs     -> Right'   (xs, st)
9
10
  splitState  (inp, st) = case splitState inp of
10
 
                  (x,xs) -> (x, (xs, st))
 
11
                  (# x,xs #) -> (# x, (xs, st) #)
11
12
  getPosition (inp, _) = getPosition inp
12
13
 
13
14
class StateParser p st | p -> st where