Fix thd3

[ghc-hetmet.git] / utils / nofib-analyse / GenUtils.lhs

diff --git a/utils/nofib-analyse/GenUtils.lhs b/utils/nofib-analyse/GenUtils.lhs
index 0dcb844..8bc9957 100644 (file)
--- 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)