← 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/Parsing.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/Parsing.hs

1

module UU.Parsing( module UU.Parsing.Derived

2

, module UU.Parsing.Interface

3

, parseIO

4

) where

5

6

import UU.Parsing.Derived

7

import UU.Parsing.Interface

8

9

parseIO :: (Eq s, Show s, Symbol s) => Parser s a -> [s] -> IO a

10

parseIO = parseIOMessage showMessage

11

where showMessage (Msg expecting position action)

12

= let pos = case position of

13

Nothing -> "at end of file"

14

Just s -> case action of

15

Insert _ -> "before " ++ show s

16

Delete t -> "at " ++ show t

17

in "\n?? Error : " ++ pos ++

18

"\n?? Expecting : " ++ show expecting ++

19

"\n?? Repaired by: " ++ show action ++ "\n"

b'\\ No newline at end of file'

Older »