@@ -103,10 +103,10 @@ receiveString x =
103103
104104sendMessage :: SExpable a => Integer -> Either a a -> IO ()
105105sendMessage id s =
106− -- return value id
106+ -- TODO: get real output here!!!
107107 case s of
108108 Left err -> putStrLn $ conv (List [SymbolAtom "abort", toSExp err])
109− Right succ -> putStrLn $ conv (List [SymbolAtom "ok", toSExp succ])
109+ Right succ -> putStrLn $ conv (List [SymbolAtom "ok", List [toSExp succ, StringAtom "no output"]])
110110 where conv sexp =
111111 let str = sExpToString (List [SymbolAtom "return", sexp, IntegerAtom id]) in (getHexLength str) ++ str
112112