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"