X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fhaskell-1.3%2FLibTime.lhs;fp=ghc%2Flib%2Fhaskell-1.3%2FLibTime.lhs;h=c6fcbd461635a7f97f6e089494d8031627f49a13;hb=68a1f0233996ed79824d11d946e9801473f6946c;hp=e3d6607fcf51490a04c28a2d04adf5b15b09a370;hpb=ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f;p=ghc-hetmet.git

diff --git a/ghc/lib/haskell-1.3/LibTime.lhs b/ghc/lib/haskell-1.3/LibTime.lhs
index e3d6607..c6fcbd4 100644
--- a/ghc/lib/haskell-1.3/LibTime.lhs
+++ b/ghc/lib/haskell-1.3/LibTime.lhs
@@ -54,6 +54,8 @@ instance Text ClockTime where
             _ccall_ strlen str			    `thenPrimIO` \ len ->
             _packCBytesST len str		    `thenStrictlyST` \ ps ->
             returnPrimIO (_unpackPS ps)))
+
+    showList = _showList (showsPrec 0)
 \end{code}