diff --git a/Text/XML/XSD/DateTime.hs b/Text/XML/XSD/DateTime.hs
--- a/Text/XML/XSD/DateTime.hs
+++ b/Text/XML/XSD/DateTime.hs
@@ -59,7 +59,7 @@
   let (yy, mm, dd) = toGregorian d
       (sss1, sss2) = properFraction sss
       (hz, mz) = m `quotRem` 60
-  in DateTime (yy < 0) (abs (fromIntegral yy)) mm dd hhh mmm sss1 (Just (show sss2)) (Offset False (Just (hz < 0)) (Just hz) (Just mz))
+  in DateTime (yy < 0) (abs (fromIntegral yy)) mm dd hhh mmm sss1 (Just (trimTail (== '0') (show sss2))) (Offset False (Just (hz < 0)) (Just hz) (Just mz))
 
 -- | Parses the string in a @dateTime@ then converts to a zoned time and may fail with a parse error.
 zonedTime' :: String -> Either ParseError ZonedTime
@@ -79,7 +79,7 @@
   let (yy, mm, dd) = toGregorian d
       TimeOfDay hhh mmm sss = timeToTimeOfDay t
       (sss1, sss2) = properFraction sss
-  in DateTime (yy < 0) (abs (fromIntegral yy)) mm dd hhh mmm sss1 (Just (show sss2)) (Offset True Nothing Nothing Nothing)
+  in DateTime (yy < 0) (abs (fromIntegral yy)) mm dd hhh mmm sss1 (Just (trimTail (== '0') (show sss2))) (Offset True Nothing Nothing Nothing)
 
 -- | Parses the string in a @dateTime@ then converts to a UTC time and may fail with a parse error.
 utcTime' :: String -> Either ParseError UTCTime
@@ -168,3 +168,8 @@
               if n > m then unexpected ("value " ++ show n ++ " exceeded maximum " ++ show m) else return n
 
 -- examples = ["2009-10-10T03:10:10-05:00", "2119-10-10T03:10:10.4-15:26", "0009-10-10T03:10:10+15:00", "2009-10-10T03:10:10Z", "-2009-05-10T21:08:59-05:00", "-9399-12-31T13:10:10+15:00", "-2009-10-10T03:10:10Z"]
+
+-- not exported
+
+trimTail :: (a -> Bool) -> [a] -> [a]
+trimTail = (reverse .) . (. reverse) . dropWhile
diff --git a/xsd.cabal b/xsd.cabal
--- a/xsd.cabal
+++ b/xsd.cabal
@@ -1,5 +1,5 @@
 Name:                xsd
-Version:             0.3.1
+Version:             0.3.2
 License:             BSD3
 License-File:        LICENSE
 Synopsis:            XML Schema data structures
@@ -8,7 +8,7 @@
 Category:            XML
 Author:              Tony Morris
 Maintainer:          code@tmorris.net
-Copyright:           2009 Tony Morris
+Copyright:           2010 Tony Morris
 build-type:          Simple
 cabal-version:       >= 1.2
 
@@ -17,9 +17,9 @@
 
 Library
   if flag(small_base)
-    Build-Depends: base < 4 && >= 3, parsec, time
+    Build-Depends: base < 5 && >= 3, parsec, time
   else
-    Build-Depends: base < 3, parsec, time
+    Build-Depends: base < 5 && >= 3, parsec, time
 
   GHC-Options:    -Wall
   Exposed-Modules: Text.XML.XSD