Fix the "tough" test
authorIan Lynagh <igloo@earth.li>
Tue, 28 Oct 2008 17:09:22 +0000 (17:09 +0000)
committerIan Lynagh <igloo@earth.li>
Tue, 28 Oct 2008 17:09:22 +0000 (17:09 +0000)
tests/function/tough.hs
tests/function/tough.stdout

index ea77cfa..ed3f3a0 100644 (file)
@@ -6,11 +6,11 @@ main = do
   print ("Hello")
   foo "Hello"
   E.catch (print (badCase 22 44))
-          (\ e -> print e)
+          (\ e -> print (e :: E.ErrorCall))
   E.catch (print (badCase 22 (error "Foo")))
-          (\ e -> print e)
+          (\ e -> print (e :: E.ErrorCall))
   E.catch (print "Bark")
-          (\ e -> print e)
+          (\ e -> print (e :: E.ErrorCall))
   (_,_) <- return $ ("Hello","World")
   return ()
   () <- return ()
index 8767f13..06d918e 100644 (file)
@@ -48,11 +48,11 @@ span.spaces    { background: white }
 <span class="lineno">    6 </span><span class="spaces">  </span><span class="istickedoff">print (&quot;Hello&quot;)</span>
 <span class="lineno">    7 </span><span class="spaces">  </span><span class="istickedoff">foo &quot;Hello&quot;</span>
 <span class="lineno">    8 </span><span class="spaces">  </span><span class="istickedoff">E.catch (print (badCase 22 <span class="nottickedoff">44</span>))</span>
-<span class="lineno">    9 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print e)</span>
+<span class="lineno">    9 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print (e :: E.ErrorCall))</span>
 <span class="lineno">   10 </span><span class="spaces">  </span><span class="istickedoff">E.catch (print (badCase 22 <span class="nottickedoff">(error &quot;Foo&quot;)</span>))</span>
-<span class="lineno">   11 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print e)</span>
+<span class="lineno">   11 </span><span class="spaces">          </span><span class="istickedoff">(\ e -&gt; print (e :: E.ErrorCall))</span>
 <span class="lineno">   12 </span><span class="spaces">  </span><span class="istickedoff">E.catch (print &quot;Bark&quot;)</span>
-<span class="lineno">   13 </span><span class="spaces">          </span><span class="istickedoff"><span class="nottickedoff">(\ e -&gt; print e)</span></span>
+<span class="lineno">   13 </span><span class="spaces">          </span><span class="istickedoff"><span class="nottickedoff">(\ e -&gt; print (e :: E.ErrorCall))</span></span>
 <span class="lineno">   14 </span><span class="spaces">  </span><span class="istickedoff">(_,_) &lt;- return $ (<span class="nottickedoff">&quot;Hello&quot;</span>,<span class="nottickedoff">&quot;World&quot;</span>)</span>
 <span class="lineno">   15 </span><span class="spaces">  </span><span class="istickedoff">return <span class="nottickedoff">()</span></span>
 <span class="lineno">   16 </span><span class="spaces">  </span><span class="istickedoff">() &lt;- return ()</span>