isCtl Char Bool isCtl let ord in 31 130 ctl CharParser st Char ctl sat

1
2
3
4
5
6
7
8
isCtl :: Char -> Bool
isCtl c = let n = ord c
in (n > 0 && n < 31) || n == 130
ctl :: CharParser st Char
ctl = satisfy (isCtl) <?> "ctl symbol"
separator :: Parser Char
separator = oneOf "()<>@,;:\\\"/[]?={} \v"