hs.html

buildbot Sat, 22 Mar 2014 19:08:31 -0700

Author: buildbot
Date: Sun Mar 23 02:07:09 2014
New Revision: 903070

Log:
Staging update by buildbot for thrift


Modified:
    websites/staging/thrift/trunk/content/   (props changed)
    websites/staging/thrift/trunk/content/tutorial/hs.html

Propchange: websites/staging/thrift/trunk/content/
------------------------------------------------------------------------------
--- cms:source-revision (original)
+++ cms:source-revision Sun Mar 23 02:07:09 2014
@@ -1 +1 @@
-1580421
+1580422

Modified: websites/staging/thrift/trunk/content/tutorial/hs.html
==============================================================================
--- websites/staging/thrift/trunk/content/tutorial/hs.html (original)
+++ websites/staging/thrift/trunk/content/tutorial/hs.html Sun Mar 23 02:07:09 
2014
@@ -86,124 +86,148 @@
 </ol>
 <h3 id="prerequisites">Prerequisites</h3>
 <h3 id="client">Client</h3>
-<p><div class="codehilite"><pre><span class="n">import</span> <span 
class="n">qualified</span> <span class="n">Calculator</span>
+<div class="codehilite"><pre><span class="n">import</span> <span 
class="n">qualified</span> <span class="n">Calculator</span>
 <span class="n">import</span> <span class="n">qualified</span> <span 
class="n">Calculator_Client</span> <span class="n">as</span> <span 
class="n">Client</span>
 <span class="n">import</span> <span class="n">qualified</span> <span 
class="n">SharedService_Client</span> <span class="n">as</span> <span 
class="n">SClient</span>
 <span class="n">import</span> <span class="n">Tutorial_Types</span>
 <span class="n">import</span> <span class="n">SharedService_Iface</span>
-<span class="n">import</span> <span class="n">Shared_Types</span></p>
-<p><span class="n">import</span> <span class="n">Thrift</span>
+<span class="n">import</span> <span class="n">Shared_Types</span>
+
+<span class="n">import</span> <span class="n">Thrift</span>
 <span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Protocol</span><span class="p">.</span><span 
class="n">Binary</span>
 <span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Transport</span>
 <span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Transport</span><span class="p">.</span><span 
class="n">Handle</span>
-<span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Server</span></p>
-<p><span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Maybe</span>
+<span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Server</span>
+
+<span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Maybe</span>
 <span class="n">import</span> <span class="n">Text</span><span 
class="p">.</span><span class="n">Printf</span>
-<span class="n">import</span> <span class="n">Network</span></p>
-<p><span class="n">main</span> <span class="o">=</span> <span 
class="k">do</span>
+<span class="n">import</span> <span class="n">Network</span>
+
+<span class="n">main</span> <span class="o">=</span> <span class="k">do</span>
   <span class="n">transport</span>  <span class="o">&lt;-</span> <span 
class="n">hOpen</span> <span class="p">(</span><span 
class="s">&quot;localhost&quot;</span><span class="p">,</span> <span 
class="n">PortNumber</span> <span class="mi">9090</span><span class="p">)</span>
   <span class="n">let</span> <span class="n">binProto</span> <span 
class="o">=</span> <span class="n">BinaryProtocol</span> <span 
class="n">transport</span>
-  <span class="n">let</span> <span class="n">client</span> <span 
class="o">=</span> <span class="p">(</span><span class="n">binProto</span><span 
class="p">,</span> <span class="n">binProto</span><span class="p">)</span></p>
-<p><span class="n">Client</span><span class="p">.</span><span 
class="n">ping</span> <span class="n">client</span>
-  <span class="n">print</span> <span class="s">&quot;ping()&quot;</span></p>
-<p><span class="n">sum</span> <span class="o">&lt;-</span> <span 
class="n">Client</span><span class="p">.</span><span class="n">add</span> <span 
class="n">client</span> <span class="mi">1</span> <span class="mi">1</span>
-  <span class="n">printf</span> <span class="s">&quot;1+1=%d</span><span 
class="se">\n</span><span class="s">&quot;</span> <span class="n">sum</span></p>
-<p><span class="n">let</span> <span class="n">work</span> <span 
class="o">=</span> <span class="n">Work</span> <span class="p">{</span> <span 
class="n">f_Work_op</span> <span class="o">=</span> <span class="n">Just</span> 
<span class="n">DIVIDE</span><span class="p">,</span>
+  <span class="n">let</span> <span class="n">client</span> <span 
class="o">=</span> <span class="p">(</span><span class="n">binProto</span><span 
class="p">,</span> <span class="n">binProto</span><span class="p">)</span>
+
+  <span class="n">Client</span><span class="p">.</span><span 
class="n">ping</span> <span class="n">client</span>
+  <span class="n">print</span> <span class="s">&quot;ping()&quot;</span>
+
+  <span class="n">sum</span> <span class="o">&lt;-</span> <span 
class="n">Client</span><span class="p">.</span><span class="n">add</span> <span 
class="n">client</span> <span class="mi">1</span> <span class="mi">1</span>
+  <span class="n">printf</span> <span class="s">&quot;1+1=%d</span><span 
class="se">\n</span><span class="s">&quot;</span> <span class="n">sum</span>
+
+
+  <span class="n">let</span> <span class="n">work</span> <span 
class="o">=</span> <span class="n">Work</span> <span class="p">{</span> <span 
class="n">f_Work_op</span> <span class="o">=</span> <span class="n">Just</span> 
<span class="n">DIVIDE</span><span class="p">,</span>
                     <span class="n">f_Work_num1</span> <span 
class="o">=</span> <span class="n">Just</span> <span class="mi">1</span><span 
class="p">,</span>
                     <span class="n">f_Work_num2</span> <span 
class="o">=</span> <span class="n">Just</span> <span class="mi">0</span><span 
class="p">,</span>
                     <span class="n">f_Work_comment</span> <span 
class="o">=</span> <span class="n">Nothing</span>
-                  <span class="p">}</span></p>
-<p><span class="o">--</span> <span class="n">TODO</span> <span 
class="o">-</span> <span class="n">get</span> <span class="k">this</span> <span 
class="n">one</span> <span class="n">working</span>
-  <span class="o">--</span><span class="k">catch</span> <span 
class="p">(</span><span class="n">Client</span><span class="p">.</span><span 
class="n">calculate</span> <span class="n">client</span> <span 
class="mi">1</span> <span class="n">work</span><span class="p">)</span> <span 
class="p">(</span><span class="err">\&lt;/span&gt;<span class="n">except</span> 
<span class="o">-&gt;</span>
-  <span class="o">--</span>     <span class="n">printf</span> <span 
class="s">&quot;InvalidOp %s&quot;</span> <span class="p">(</span><span 
class="n">show</span> <span class="n">except</span><span class="p">))</span></p>
-<p><span class="n">let</span> <span class="n">work</span> <span 
class="o">=</span> <span class="n">Work</span> <span class="p">{</span> <span 
class="n">f_Work_op</span> <span class="o">=</span> <span class="n">Just</span> 
<span class="n">SUBTRACT</span><span class="p">,</span>
+                  <span class="p">}</span>
+
+  <span class="o">--</span> <span class="n">TODO</span> <span 
class="o">-</span> <span class="n">get</span> <span class="k">this</span> <span 
class="n">one</span> <span class="n">working</span>
+  <span class="o">--</span><span class="k">catch</span> <span 
class="p">(</span><span class="n">Client</span><span class="p">.</span><span 
class="n">calculate</span> <span class="n">client</span> <span 
class="mi">1</span> <span class="n">work</span><span class="p">)</span> <span 
class="p">(</span><span class="err">\</span><span class="n">except</span> <span 
class="o">-&gt;</span>
+  <span class="o">--</span>     <span class="n">printf</span> <span 
class="s">&quot;InvalidOp %s&quot;</span> <span class="p">(</span><span 
class="n">show</span> <span class="n">except</span><span class="p">))</span>
+
+
+  <span class="n">let</span> <span class="n">work</span> <span 
class="o">=</span> <span class="n">Work</span> <span class="p">{</span> <span 
class="n">f_Work_op</span> <span class="o">=</span> <span class="n">Just</span> 
<span class="n">SUBTRACT</span><span class="p">,</span>
                     <span class="n">f_Work_num1</span> <span 
class="o">=</span> <span class="n">Just</span> <span class="mi">15</span><span 
class="p">,</span>
                     <span class="n">f_Work_num2</span> <span 
class="o">=</span> <span class="n">Just</span> <span class="mi">10</span><span 
class="p">,</span>
                     <span class="n">f_Work_comment</span> <span 
class="o">=</span> <span class="n">Nothing</span>
-                  <span class="p">}</span></p>
-<p><span class="n">diff</span> <span class="o">&lt;-</span> <span 
class="n">Client</span><span class="p">.</span><span class="n">calculate</span> 
<span class="n">client</span> <span class="mi">1</span> <span 
class="n">work</span>
-  <span class="n">printf</span> <span class="s">&quot;15-10=%d</span><span 
class="se">\n</span><span class="s">&quot;</span> <span 
class="n">diff</span></p>
-<p><span class="n">log</span> <span class="o">&lt;-</span> <span 
class="n">SClient</span><span class="p">.</span><span 
class="n">getStruct</span> <span class="n">client</span> <span 
class="mi">1</span>
-  <span class="n">printf</span> <span class="s">&quot;Check log: 
%s</span><span class="se">\n</span><span class="s">&quot;</span>  <span 
class="err">$</span> <span class="n">fromJust</span> <span class="err">$</span> 
<span class="n">f_SharedStruct_value</span> <span class="n">log</span></p>
-<p><span class="o">--</span> <span class="n">Close</span><span 
class="o">!</span>
+                  <span class="p">}</span>
+
+  <span class="n">diff</span> <span class="o">&lt;-</span> <span 
class="n">Client</span><span class="p">.</span><span class="n">calculate</span> 
<span class="n">client</span> <span class="mi">1</span> <span 
class="n">work</span>
+  <span class="n">printf</span> <span class="s">&quot;15-10=%d</span><span 
class="se">\n</span><span class="s">&quot;</span> <span class="n">diff</span>
+
+  <span class="n">log</span> <span class="o">&lt;-</span> <span 
class="n">SClient</span><span class="p">.</span><span 
class="n">getStruct</span> <span class="n">client</span> <span 
class="mi">1</span>
+  <span class="n">printf</span> <span class="s">&quot;Check log: 
%s</span><span class="se">\n</span><span class="s">&quot;</span>  <span 
class="err">$</span> <span class="n">fromJust</span> <span class="err">$</span> 
<span class="n">f_SharedStruct_value</span> <span class="n">log</span>
+
+  <span class="o">--</span> <span class="n">Close</span><span 
class="o">!</span>
   <span class="n">tClose</span> <span class="n">transport</span>
-</pre></div></p>
+</pre></div>
+
 <h3 id="server">Server</h3>
-<p><div class="codehilite"><pre><span class="n">import</span> <span 
class="n">qualified</span> <span class="n">Calculator</span>
+<div class="codehilite"><pre><span class="n">import</span> <span 
class="n">qualified</span> <span class="n">Calculator</span>
 <span class="n">import</span> <span class="n">Calculator_Iface</span>
 <span class="n">import</span> <span class="n">Tutorial_Types</span>
 <span class="n">import</span> <span class="n">SharedService_Iface</span>
-<span class="n">import</span> <span class="n">Shared_Types</span></p>
-<p><span class="n">import</span> <span class="n">Thrift</span>
+<span class="n">import</span> <span class="n">Shared_Types</span>
+
+<span class="n">import</span> <span class="n">Thrift</span>
 <span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Protocol</span><span class="p">.</span><span 
class="n">Binary</span>
 <span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Transport</span>
-<span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Server</span></p>
-<p><span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Maybe</span>
+<span class="n">import</span> <span class="n">Thrift</span><span 
class="p">.</span><span class="n">Server</span>
+
+<span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Maybe</span>
 <span class="n">import</span> <span class="n">Text</span><span 
class="p">.</span><span class="n">Printf</span>
 <span class="n">import</span> <span class="n">Control</span><span 
class="p">.</span><span class="n">Exception</span> <span 
class="p">(</span><span class="k">throw</span><span class="p">)</span>
 <span class="n">import</span> <span class="n">Control</span><span 
class="p">.</span><span class="n">Concurrent</span><span 
class="p">.</span><span class="n">MVar</span>
 <span class="n">import</span> <span class="n">qualified</span> <span 
class="n">Data</span><span class="p">.</span><span class="n">Map</span> <span 
class="n">as</span> <span class="n">M</span>
 <span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Map</span> <span class="p">((</span><span 
class="o">!</span><span class="p">))</span>
-<span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Monoid</span></p>
-<p><span class="n">data</span> <span class="n">CalculatorHandler</span> <span 
class="o">=</span> <span class="n">CalculatorHandler</span> <span 
class="p">{</span><span class="n">mathLog</span> <span class="o">::</span> 
<span class="n">MVar</span> <span class="p">(</span><span 
class="n">M</span><span class="p">.</span><span class="n">Map</span> <span 
class="n">Int</span> <span class="n">SharedStruct</span><span 
class="p">)}</span></p>
-<p><span class="n">newCalculatorHandler</span> <span class="o">=</span> <span 
class="k">do</span>
+<span class="n">import</span> <span class="n">Data</span><span 
class="p">.</span><span class="n">Monoid</span>
+
+<span class="n">data</span> <span class="n">CalculatorHandler</span> <span 
class="o">=</span> <span class="n">CalculatorHandler</span> <span 
class="p">{</span><span class="n">mathLog</span> <span class="o">::</span> 
<span class="n">MVar</span> <span class="p">(</span><span 
class="n">M</span><span class="p">.</span><span class="n">Map</span> <span 
class="n">Int</span> <span class="n">SharedStruct</span><span 
class="p">)}</span>
+
+<span class="n">newCalculatorHandler</span> <span class="o">=</span> <span 
class="k">do</span>
   <span class="n">log</span> <span class="o">&lt;-</span> <span 
class="n">newMVar</span> <span class="n">mempty</span>
-  <span class="k">return</span> <span class="err">$</span> <span 
class="n">CalculatorHandler</span> <span class="n">log</span></p>
-<p><span class="n">instance</span> <span class="n">SharedService_Iface</span> 
<span class="n">CalculatorHandler</span> <span class="n">where</span>
+  <span class="k">return</span> <span class="err">$</span> <span 
class="n">CalculatorHandler</span> <span class="n">log</span>
+
+<span class="n">instance</span> <span class="n">SharedService_Iface</span> 
<span class="n">CalculatorHandler</span> <span class="n">where</span>
   <span class="n">getStruct</span> <span class="n">self</span> <span 
class="n">k</span> <span class="o">=</span> <span class="k">do</span>
     <span class="n">myLog</span> <span class="o">&lt;-</span> <span 
class="n">readMVar</span> <span class="p">(</span><span 
class="n">mathLog</span> <span class="n">self</span><span class="p">)</span>
-    <span class="k">return</span> <span class="err">$</span> <span 
class="p">(</span><span class="n">myLog</span> <span class="o">!</span> <span 
class="p">(</span><span class="n">fromJust</span> <span class="n">k</span><span 
class="p">))</span></p>
-<p><span class="n">instance</span> <span class="n">Calculator_Iface</span> 
<span class="n">CalculatorHandler</span> <span class="n">where</span>
+    <span class="k">return</span> <span class="err">$</span> <span 
class="p">(</span><span class="n">myLog</span> <span class="o">!</span> <span 
class="p">(</span><span class="n">fromJust</span> <span class="n">k</span><span 
class="p">))</span>
+
+
+<span class="n">instance</span> <span class="n">Calculator_Iface</span> <span 
class="n">CalculatorHandler</span> <span class="n">where</span>
   <span class="n">ping</span> <span class="n">_</span> <span class="o">=</span>
-    <span class="n">print</span> <span class="s">&quot;ping()&quot;</span></p>
-<p><span class="n">add</span> <span class="n">_</span> <span 
class="n">n1</span> <span class="n">n2</span> <span class="o">=</span> <span 
class="k">do</span>
+    <span class="n">print</span> <span class="s">&quot;ping()&quot;</span>
+
+  <span class="n">add</span> <span class="n">_</span> <span 
class="n">n1</span> <span class="n">n2</span> <span class="o">=</span> <span 
class="k">do</span>
     <span class="n">printf</span> <span class="s">&quot;add(%d,%d)</span><span 
class="se">\n</span><span class="s">&quot;</span> <span class="p">(</span><span 
class="n">fromJust</span> <span class="n">n1</span><span class="p">)</span> 
<span class="p">(</span><span class="n">fromJust</span> <span 
class="n">n2</span><span class="p">)</span>
-    <span class="k">return</span> <span class="p">((</span><span 
class="n">fromJust</span> <span class="n">n1</span><span 
class="p">)</span><span class="o">+</span><span class="p">(</span><span 
class="n">fromJust</span> <span class="n">n2</span><span class="p">))</span></p>
-<p><span class="n">calculate</span> <span class="n">self</span> <span 
class="n">mlogid</span> <span class="n">mwork</span> <span class="o">=</span> 
<span class="k">do</span>
-    <span class="n">printf</span> <span class="s">&quot;calculate(%d, 
%s)</span><span class="se">\n</span><span class="s">&quot;</span> <span 
class="n">logid</span> <span class="p">(</span><span class="n">show</span> 
<span class="n">work</span><span class="p">)</span></p>
-<div class="codehilite"><pre><span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>let<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>val<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>=<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;k&quot;</span><span class="nt">&gt;</span>case<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>op<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>wor
 k<span class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>of<span class="nt">&lt;/span&gt;</span>
-            <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>ADD<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;o&quot;</span><span class="nt">&gt;</span>-<span 
class="ni">&amp;gt;</span><span class="nt">&lt;/span&gt;</span>
-                <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>num1<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>work<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>+<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>num2<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>work<span class="nt">&lt;/span&gt;</span>
-            <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>SUBTRACT<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;o&quot;</span><span class="nt">&gt;</span>-<span 
class="ni">&amp;gt;</span><span class="nt">&lt;/span&gt;</span>
-                <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>num1<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>work<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>-<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>num2<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>work<span class="nt">&lt;/span&gt;</span>
-            <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>MULTIPLY<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;o&quot;</span><span class="nt">&gt;</span>-<span 
class="ni">&amp;gt;</span><span class="nt">&lt;/span&gt;</span>
-                <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>num1<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>work<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>*<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>num2<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>work<span class="nt">&lt;/span&gt;</span>
-            <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>DIVIDE<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;o&quot;</span><span class="nt">&gt;</span>-<span 
class="ni">&amp;gt;</span><span class="nt">&lt;/span&gt;</span>
-                <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;k&quot;</span><span 
class="nt">&gt;</span>if<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>num2<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>work<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;o&quot;</span><span class="nt">&gt;</span>==<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;mi&quot;</span><span 
class="nt">&gt;</span>0<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>then<span class
 ="nt">&lt;/span&gt;</span>
-                    <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;k&quot;</span><span 
class="nt">&gt;</span>throw<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;err&quot;</span><span class="nt">&gt;</span>$<span 
class="nt">&lt;/span&gt;</span>
-                          <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>InvalidOperation<span class="nt">&lt;/span&gt;</span> 
<span class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>{<span 
class="nt">&lt;/span&gt;</span>
-                             <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>f_InvalidOperation_what<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>=<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>Just<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;err&quot;</span><span 
class="nt">&gt;</span>$<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>fromEnum<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;err&quot;</span><sp
 an class="nt">&gt;</span>$<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>op<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>work<span class="nt">&lt;/span&gt;&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;p&quot;</span><span 
class="nt">&gt;</span>,<span class="nt">&lt;/span&gt;</span>
-                             <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>f_InvalidOperation_why<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>=<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>Just<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;s&quot;</span><span 
class="nt">&gt;</span><span class="ni">&amp;quot;</span>Cannot divide by 0<span 
class="ni">&amp;quot;</span><span class="nt">&lt;/span&gt;</span>
-                                        <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;p&quot;</span><span 
class="nt">&gt;</span>}<span class="nt">&lt;/span&gt;</span>
-                <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;k&quot;</span><span 
class="nt">&gt;</span>else<span class="nt">&lt;/span&gt;</span>
-                    <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>num1<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>work<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;err&quot;</span><span 
class="nt">&gt;</span>`<span class="nt">&lt;/span&gt;&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>div<span class="nt">&lt;/span&gt;&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;err&quot;</span><span 
class="nt">&gt;</span>`<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>num2<span 
class="nt">&lt;/span&gt;</span> <span class="nt"
 >&lt;span</span> <span class="na">class=</span><span 
 >class="s">&quot;n&quot;</span><span class="nt">&gt;</span>work<span 
 >class="nt">&lt;/span&gt;</span>
+    <span class="k">return</span> <span class="p">((</span><span 
class="n">fromJust</span> <span class="n">n1</span><span 
class="p">)</span><span class="o">+</span><span class="p">(</span><span 
class="n">fromJust</span> <span class="n">n2</span><span class="p">))</span>
 
-<span class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>let<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>logEntry<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;o&quot;</span><span class="nt">&gt;</span>=<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>SharedStruct<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>(<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>Just<span 
class="nt">&lt;/span&gt;</span> <sp
 an class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>logid<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>)<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;p&quot;</span><span 
class="nt">&gt;</span>(<span class="nt">&lt;/span&gt;&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>Just<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>(<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>show<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span 
 class="s">&quot;n&quot;</span><span class="nt">&gt;</span>val<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>))<span 
class="nt">&lt;/span&gt;</span>
-<span class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>modifyMVar_<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;p&quot;</span><span 
class="nt">&gt;</span>(<span class="nt">&lt;/span&gt;&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>mathLog<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>self<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>)<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;err&quot;</span><span 
class="nt">&gt;</span>$<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</spa
 n> <span class="na">class=</span><span class="s">&quot;k&quot;</span><span 
class="nt">&gt;</span>return<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>.(<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>M<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>.<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>insert<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>logid<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot
 ;</span><span class="nt">&gt;</span>logEntry<span 
class="nt">&lt;/span&gt;&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;p&quot;</span><span class="nt">&gt;</span>)<span 
class="nt">&lt;/span&gt;</span>
+  <span class="n">calculate</span> <span class="n">self</span> <span 
class="n">mlogid</span> <span class="n">mwork</span> <span class="o">=</span> 
<span class="k">do</span>
+    <span class="n">printf</span> <span class="s">&quot;calculate(%d, 
%s)</span><span class="se">\n</span><span class="s">&quot;</span> <span 
class="n">logid</span> <span class="p">(</span><span class="n">show</span> 
<span class="n">work</span><span class="p">)</span>
 
-<span class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;k&quot;</span><span class="nt">&gt;</span>return<span 
class="nt">&lt;/span&gt;</span> <span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;n&quot;</span><span 
class="nt">&gt;</span>val<span class="nt">&lt;/span&gt;</span>
-</pre></div>
+    <span class="n">let</span> <span class="n">val</span> <span 
class="o">=</span> <span class="k">case</span> <span class="n">op</span> <span 
class="n">work</span> <span class="n">of</span>
+                <span class="n">ADD</span> <span class="o">-&gt;</span>
+                    <span class="n">num1</span> <span class="n">work</span> 
<span class="o">+</span> <span class="n">num2</span> <span class="n">work</span>
+                <span class="n">SUBTRACT</span> <span class="o">-&gt;</span>
+                    <span class="n">num1</span> <span class="n">work</span> 
<span class="o">-</span> <span class="n">num2</span> <span class="n">work</span>
+                <span class="n">MULTIPLY</span> <span class="o">-&gt;</span>
+                    <span class="n">num1</span> <span class="n">work</span> 
<span class="o">*</span> <span class="n">num2</span> <span class="n">work</span>
+                <span class="n">DIVIDE</span> <span class="o">-&gt;</span>
+                    <span class="k">if</span> <span class="n">num2</span> 
<span class="n">work</span> <span class="o">==</span> <span class="mi">0</span> 
<span class="n">then</span>
+                        <span class="k">throw</span> <span class="err">$</span>
+                              <span class="n">InvalidOperation</span> <span 
class="p">{</span>
+                                 <span 
class="n">f_InvalidOperation_what</span> <span class="o">=</span> <span 
class="n">Just</span> <span class="err">$</span> <span 
class="n">fromEnum</span> <span class="err">$</span> <span class="n">op</span> 
<span class="n">work</span><span class="p">,</span>
+                                 <span class="n">f_InvalidOperation_why</span> 
<span class="o">=</span> <span class="n">Just</span> <span 
class="s">&quot;Cannot divide by 0&quot;</span>
+                                            <span class="p">}</span>
+                    <span class="k">else</span>
+                        <span class="n">num1</span> <span 
class="n">work</span> <span class="err">`</span><span class="n">div</span><span 
class="err">`</span> <span class="n">num2</span> <span class="n">work</span>
+
+    <span class="n">let</span> <span class="n">logEntry</span> <span 
class="o">=</span> <span class="n">SharedStruct</span> <span 
class="p">(</span><span class="n">Just</span> <span class="n">logid</span><span 
class="p">)</span> <span class="p">(</span><span class="n">Just</span> <span 
class="p">(</span><span class="n">show</span> <span class="n">val</span><span 
class="p">))</span>
+    <span class="n">modifyMVar_</span> <span class="p">(</span><span 
class="n">mathLog</span> <span class="n">self</span><span class="p">)</span> 
<span class="err">$</span> <span class="k">return</span> <span 
class="p">.(</span><span class="n">M</span><span class="p">.</span><span 
class="n">insert</span> <span class="n">logid</span> <span 
class="n">logEntry</span><span class="p">)</span>
 
+    <span class="k">return</span> <span class="n">val</span>
 
-<p><span class="n">where</span>
+   <span class="n">where</span>
      <span class="o">--</span> <span class="n">stupid</span> <span 
class="n">dynamic</span> <span class="n">languages</span> <span 
class="n">f</span><span class="err">&#39;</span><span class="n">ing</span> 
<span class="n">it</span> <span class="n">up</span>
      <span class="n">num1</span> <span class="o">=</span> <span 
class="n">fromJust</span> <span class="p">.</span> <span 
class="n">f_Work_num1</span>
      <span class="n">num2</span> <span class="o">=</span> <span 
class="n">fromJust</span> <span class="p">.</span> <span 
class="n">f_Work_num2</span>
      <span class="n">op</span> <span class="o">=</span> <span 
class="n">fromJust</span> <span class="p">.</span> <span 
class="n">f_Work_op</span>
      <span class="n">logid</span> <span class="o">=</span> <span 
class="n">fromJust</span> <span class="n">mlogid</span>
-     <span class="n">work</span> <span class="o">=</span> <span 
class="n">fromJust</span> <span class="n">mwork</span></p>
-<div class="codehilite"><pre><span class="nt">&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;o&quot;</span><span 
class="nt">&gt;</span>--<span class="nt">&lt;/span&gt;&lt;span</span> <span 
class="na">class=</span><span class="s">&quot;k&quot;</span><span 
class="nt">&gt;</span>return<span class="nt">&lt;/span&gt;</span> <span 
class="nt">&lt;span</span> <span class="na">class=</span><span 
class="s">&quot;n&quot;</span><span class="nt">&gt;</span>val<span 
class="nt">&lt;/span&gt;</span>
-</pre></div>
+     <span class="n">work</span> <span class="o">=</span> <span 
class="n">fromJust</span> <span class="n">mwork</span>
+
 
+    <span class="o">--</span><span class="k">return</span> <span 
class="n">val</span>
 
-<p><span class="n">zip</span> <span class="n">_</span> <span class="o">=</span>
-    <span class="n">print</span> <span class="s">&quot;zip()&quot;</span></p>
-<p><span class="n">main</span> <span class="o">=</span>  <span 
class="k">do</span>
+  <span class="n">zip</span> <span class="n">_</span> <span class="o">=</span>
+    <span class="n">print</span> <span class="s">&quot;zip()&quot;</span>
+
+<span class="n">main</span> <span class="o">=</span>  <span class="k">do</span>
   <span class="n">handler</span> <span class="o">&lt;-</span> <span 
class="n">newCalculatorHandler</span>
   <span class="n">print</span> <span class="s">&quot;Starting the 
server...&quot;</span>
   <span class="n">runBasicServer</span> <span class="n">handler</span> <span 
class="n">Calculator</span><span class="p">.</span><span 
class="n">process</span> <span class="mi">9090</span>
   <span class="n">print</span> <span class="s">&quot;done.&quot;</span>
-</pre></div></p>
+</pre></div>
+
 <h2 id="additional-information">Additional Information</h2>
        </div>
        <div class="container">

svn commit: r903070 - in /websites/staging/thrift/trunk/content: ./ tutorial/hs.html

Reply via email to