, satisfy
) where
+import Prelude
import Data.Char
import Text.ParserCombinators.Parsec.Pos( updatePosChar, updatePosString )
import Text.ParserCombinators.Parsec.Prim
(\c -> if f c then Just c else Nothing)
string :: String -> CharParser st String
-string s = tokens show updatePosString s
\ No newline at end of file
+string s = tokens show updatePosString s