[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / lib / haskell-1.3 / LibTime.lhs

diff --git a/ghc/lib/haskell-1.3/LibTime.lhs b/ghc/lib/haskell-1.3/LibTime.lhs
index e3d6607..c6fcbd4 100644 (file)
--- 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}