javascript - Haskell Pandoc 関数を YesodWeb で html セレクターにバインドする方法は?

Question

私のユースケースは次のとおりです。

• YesodWeb でウェブサイトをセットアップしました
• 1 つの領域にテキストを書き込むことができます
• Pandoc でテキストが変換され、変換されたテキストが別のテキスト ボックスに表示される
• 質問: コマンドを html セレクターにバインドするにはどうすればよいですか? セレクターに応じて、Pandoc 関数にさまざまなコマンドを与えることができる必要があります。

my.hs ファイル内の関数:

pandocConverted :: String -> IO String 
pandocConverted input = do
    (Just hIn, Just hOut, _, _) <- createProcess (proc "pandoc" []) { std_in = CreatePipe, std_out = CreatePipe }
    hPutStr hIn input    
    converted  <- hGetContents hOut
    return converted

pandoc コマンドラインは次のようになります。

(proc "pandoc" ["-f", variable1, "-t", variable2]) 「-f」は入力例、「markup」 「-t」は出力例、「latex」

chat.hamlet (html テンプレート) の私のセレクター:

<div style="float:right; margin-top:5px">
                <select id="selectorTo" onchange="getSelected(this)">
                    <option value="asciidoc">AsciiDoc</option>
                    <option value="context">ConTeXt</option>
                    <option value="docbook">DocBook</option>
                    <option value="dokuwiki">DokuWiki</option>
...

出力用

と

<div style="float:left;"> 
                <p style="font-size:18px"> From: 
            <div style="float:right; margin-top:5px">
                <select id="selectorFrom" onchange="getSelected(this)">
                    <option value="docbook">DocBook
                    <option value="haddock">Haddock markup
                    <option value="html">HTML
                    <option value="latex">LaTeX
                    <option value="markdown" selected="">Markdown (pandoc)
... 

入力用

このJavaScriptを書きました。変数を .hs ファイルに戻すにはどうすればよいですか?

url = url.replace("http:", "ws:").replace("https:", "wss:");
conn = new WebSocket(url);

function getSelected(e) {
    var value = e.value;
    var selector = '';

    if(e.id == "selectorFrom"){
        selector = e.id;
    }
    if(e.id == "selectorTo"){
        selector = e.id;
    }
    console.log(selector + ": " + value);
    return (selector, value);
    conn.send(e.id, e.value);
 }

私conn.send(e.id, e.value)は何もしません。サーバー側でメッセージを受信するにはどうすればよいですか?

私を助けてください！