diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,4 +1,4 @@
-## Version WIP
+## Version 0.2.0 (3 Jun 2014)
 
 - use tasty to replace test-framework
 - add some inlining pragma to tentatively deal with rules properly.
diff --git a/Data/Hourglass/Diff.hs b/Data/Hourglass/Diff.hs
--- a/Data/Hourglass/Diff.hs
+++ b/Data/Hourglass/Diff.hs
@@ -62,6 +62,7 @@
     fromSeconds s = (durationNormalize (Duration 0 0 s 0), 0)
     toSeconds d   = fst $ durationFlatten d
 
+-- | Flatten a duration to a number of seconds, nanoseconds
 durationFlatten :: Duration -> (Seconds, NanoSeconds)
 durationFlatten (Duration h m s (NanoSeconds ns)) =
     (toSeconds h + toSeconds m + s + Seconds sacc, NanoSeconds ns')
diff --git a/Data/Hourglass/Format.hs b/Data/Hourglass/Format.hs
--- a/Data/Hourglass/Format.hs
+++ b/Data/Hourglass/Format.hs
@@ -157,9 +157,9 @@
         fmtToString Format_MonthName_Short = take 3 $ show (dateMonth date)
         fmtToString Format_Day2     = pad2 (dateDay date)
         fmtToString Format_Day      = show (dateDay date)
-        fmtToString Format_Hour     = pad2 (todHour tm)
-        fmtToString Format_Minute   = pad2 (todMin tm)
-        fmtToString Format_Second   = pad2 (todSec tm)
+        fmtToString Format_Hour     = pad2 (fromIntegral (todHour tm) :: Int)
+        fmtToString Format_Minute   = pad2 (fromIntegral (todMin tm) :: Int)
+        fmtToString Format_Second   = pad2 (fromIntegral (todSec tm) :: Int)
         fmtToString Format_UnixSecond = show unixSecs
         fmtToString Format_TimezoneName   = "" --
         fmtToString Format_Tz_Offset = show tz
@@ -181,10 +181,10 @@
 --
 -- The actual output is determined by the format used.
 localTimePrint :: (TimeFormat format, Timeable t)
-               => format           -- ^ the format to use for printing
-               -> LocalTime t      -- ^ the local time to print
-               -> LocalTime String -- ^ the resulting local time string
-localTimePrint fmt lt = fmap (printWith fmt (localTimeGetTimezone lt)) lt
+               => format      -- ^ the format to use for printing
+               -> LocalTime t -- ^ the local time to print
+               -> String      -- ^ the resulting local time string
+localTimePrint fmt lt = localTimeUnwrap $ fmap (printWith fmt (localTimeGetTimezone lt)) lt
 
 -- | Pretty print time to a string
 --
diff --git a/Data/Hourglass/Types.hs b/Data/Hourglass/Types.hs
--- a/Data/Hourglass/Types.hs
+++ b/Data/Hourglass/Types.hs
@@ -46,6 +46,8 @@
 import Control.DeepSeq
 import Data.Hourglass.Utils (pad2)
 
+-- | Represent any time interval that has an
+-- equivalent value to a number of seconds.
 class TimeInterval i where
     toSeconds   :: i -> Seconds
     fromSeconds :: Seconds -> (i, Seconds)
diff --git a/hourglass.cabal b/hourglass.cabal
--- a/hourglass.cabal
+++ b/hourglass.cabal
@@ -1,5 +1,5 @@
 Name:                hourglass
-Version:             0.2.0
+Version:             0.2.1
 Synopsis:            simple performant time related library
 Description:
     Simple time library focusing on simple but powerful and performant API