parseBool :: Parser LispVal
parseBool = Bool . (== 't') <$> (char '#' *> oneOf "ft")
parseBool :: Parser LispVal
parseBool = Bool . (== 't') <$> (char '#' *> oneOf "ft")
parseBool = Bool . (== 't') <$> (char '#' *> oneOf "ft")