Parsec.Prim：getInput

everyday parser Parsec 
module Main where

import Text.ParserCombinators.Parsec
import Text.ParserCombinators.Parsec.Token
import Text.ParserCombinators.Parsec.Language

lexer  :: TokenParser ()
lexer  =  makeTokenParser(javaStyle)

test   = do { string "foo"
            ; x <- getInput
            ; return x
            }

で、

Prelude> :l 20090126_parsec00.hs
[1 of 1] Compiling Main             ( 20090126_parsec00.hs, interpreted )
Ok, modules loaded: Main.
*Main> parseTest test "foo"
Loading package parsec-2.0 ... linking ... done.
""
*Main> parseTest test "foobar"
"bar"