@@ -208,8 +208,8 @@ escape = concatMap escapeChar
209type Parser a = P.Parsec () String a
209type Parser a = P.Parsec () String a
211−pSExp :: Parser SExp
211+sexp :: Parser SExp
212−pSExp = SexpList <$> P.between (P.char '(') (P.char ')') (pSExp `P.sepBy` (P.char ' '))
212+sexp = SexpList <$> P.between (P.char '(') (P.char ')') (sexp `P.sepBy` (P.char ' '))
215atom :: Parser SExp
215atom :: Parser SExp
@@ -325,7 +325,7 @@ parseMessage x = case receiveString x of
325 Left err -> Left err
325 Left err -> Left err
327receiveString :: String -> Either Err SExp
327receiveString :: String -> Either Err SExp
328−receiveString = left (const $ Msg "parse failure") . P.parse pSExp "(unknown)"
328+receiveString = left (const $ Msg "parse failure") . P.parse sexp "(unknown)"
330convSExp :: SExpable a => String -> a -> Integer -> String
330convSExp :: SExpable a => String -> a -> Integer -> String
331convSExp pre s id =
331convSExp pre s id =