more tests

[time-w3c.git] / Data / Time / W3C / Format.hs

diff --git a/Data/Time/W3C/Format.hs b/Data/Time/W3C/Format.hs
index d83d8c3897eee78aa2d7a7a1b05561dd5db10543..f3f9fac77d1bb37e79ee8b8fe3e8a8c9c9ed8c19 100644 (file)
--- a/Data/Time/W3C/Format.hs
+++ b/Data/Time/W3C/Format.hs
@@ -47,7 +47,7 @@ format = format' . convert
                    , ":"
                    , case properFraction second :: (Int, Pico) of
                        (int, 0   ) -> show2 int
-                       (int, frac) -> show2 int ++ tail (show frac)
+                       (int, frac) -> show2 int ++ tail (showFixed True frac)
                    , showTZ tz
                    ]