From: Ian Lynagh <igloo@earth.li>
Date: Tue, 12 Dec 2006 17:34:27 +0000 (+0000)
Subject: Fix thd3
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e6e36c2b65e936dc73d57b2f29b7cff84b0cbb4e

Fix thd3
---

diff --git a/utils/nofib-analyse/GenUtils.lhs b/utils/nofib-analyse/GenUtils.lhs
index 0dcb844..8bc9957 100644
--- a/utils/nofib-analyse/GenUtils.lhs
+++ b/utils/nofib-analyse/GenUtils.lhs
@@ -163,7 +163,7 @@ Gofer-like stuff:
 
 > fst3 (a,_,_) = a
 > snd3 (_,a,_) = a
-> thd3 (_,a,_) = a
+> thd3 (_,_,a) = a
 
 > cjustify, ljustify, rjustify :: Int -> String -> String
 > cjustify n s = space halfm ++ s ++ space (m - halfm)