abuiles · October 20, 2009 20:31
diff --git a/presentacion.hs b/presentacion.hs

 pLettera :: Parser Char Char 
 pLettera = P (\inp -> case inp of
                        ( s:ss ) 
                            | s == 'a' -> [('a',ss)]
                            | otherwise        -> []
                        otherwise -> []
             )

	pLettera :: Parser Char Char
	pLettera = P (\inp -> case inp of
	( s:ss )
	\| s == 'a' -> [('a',ss)]
	\| otherwise -> []
	otherwise -> []
	)