From e6e36c2b65e936dc73d57b2f29b7cff84b0cbb4e Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 12 Dec 2006 17:34:27 +0000 Subject: [PATCH] Fix thd3 --- utils/nofib-analyse/GenUtils.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4