@voker57 Давай мне "нормально" с табами вот эту функцию из prelude:
readParen :: Bool -> ReadS a -> ReadS a
readParen b g = if b then mandatory else optional
where optional r = g r ++ mandatory r
mandatory r = [(x,u) | ("(",s) <- lex r,
(x,t) <- optional s,
(")",u) <- lex t ]
@anonymous readParen :: Bool -> ReadS a -> ReadS a
readParen b g = if b then mandatory else optional
where
optional r = g r ++ mandatory r
mandatory r = [
(x,u) | ("(",s) <- lex r,
(x,t) <- optional s,
(")",u) <- lex t
]
@voker57 Давай мне "нормально" с табами вот эту функцию из prelude: