From 458d853b57cd4af43fad3cda38aa2818bda34b3d Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 28 Oct 2008 17:09:22 +0000
Subject: [PATCH] Fix the "tough" test

---
 tests/function/tough.hs     | 6 +++---
 tests/function/tough.stdout | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/tests/function/tough.hs b/tests/function/tough.hs
index ea77cfa..ed3f3a0 100644
--- a/tests/function/tough.hs
+++ b/tests/function/tough.hs
@@ -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 ()
diff --git a/tests/function/tough.stdout b/tests/function/tough.stdout
index 8767f13..06d918e 100644
--- a/tests/function/tough.stdout
+++ b/tests/function/tough.stdout
@@ -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>
-- 
GitLab