abuiles · October 20, 2009 20:34
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 -> []
             )
	pLettera :: Parser Char Char
	pLettera = P (\inp -> case inp of
	( s:ss ) \| s == 'a' -> [('a',ss)]
	otherwise -> []
	)