From: ross <unknown>
Date: Tue, 12 Oct 2004 17:45:44 +0000 (+0000)
Subject: [project @ 2004-10-12 17:45:44 by ross]
X-Git-Tag: nhc98-1-18-release~215
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=099287255140d04e46d3403e3528d7a050dc0121;p=ghc-base.git

[project @ 2004-10-12 17:45:44 by ross]
unused line
---

diff --git a/System/Time.hsc b/System/Time.hsc
index 6b59353..d884e87 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -643,7 +643,6 @@ show2' x
  where x' = x `rem` 100
 
 show3 x = show (x `quot` 100) ++ show2 (x `rem` 100)
- where x' = x `rem` 1000
 
 to12 :: Int -> Int
 to12 h = let h' = h `mod` 12 in if h' == 0 then 12 else h'