diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -44,7 +44,7 @@
 
     ------- with hourglass
     import System.Hourglass
-    ptime <- getCurrentElapsed
+    ptime <- timeCurrent
 
 * getting current date year:
 
@@ -56,7 +56,7 @@
     ------- with hourglass
     import System.Hourglass
     import Data.Time
-    currentYear <- dateYear . timeGetDate <$> getCurrentElapsed
+    currentYear <- dateYear . timeGetDate <$> timeCurrent
 
 * creating a time representation of "4th May 1970 15:12:24"
 
diff --git a/hourglass.cabal b/hourglass.cabal
--- a/hourglass.cabal
+++ b/hourglass.cabal
@@ -1,5 +1,5 @@
 Name:                hourglass
-Version:             0.1.0
+Version:             0.1.1
 Synopsis:            simple performant time related library
 Description:
     Simple time library focusing on simple but powerful and performant API
@@ -16,9 +16,10 @@
 Category:            Time
 Stability:           experimental
 Build-Type:          Simple
-Homepage:            http://github.com/vincenthz/hs-hourglass
+Homepage:            https://github.com/vincenthz/hs-hourglass
 Cabal-Version:       >=1.10
 extra-source-files:  README.md
+                  ,  tests/TimeDB.hs
 
 Library
   Exposed-modules:   Data.Hourglass
@@ -83,4 +84,4 @@
 
 source-repository head
   type: git
-  location: git://github.com/vincenthz/hs-hourglass
+  location: https://github.com/vincenthz/hs-hourglass
diff --git a/tests/TimeDB.hs b/tests/TimeDB.hs
new file mode 100644
--- /dev/null
+++ b/tests/TimeDB.hs
@@ -0,0 +1,36 @@
+{-# LANGUAGE BangPatterns #-}
+module TimeDB (parseTimeConv) where
+
+import Data.Char (isDigit)
+import Data.Int
+import Data.Hourglass
+
+r :: (Read a, Num a) => String -> a
+r !s
+    | isNumber s = case reads s of
+                    [(n,"")] -> fromIntegral (n :: Int64)
+                    []       -> error ("cannot parse anything: " ++ show s)
+                    _        -> error ("cannot parse anything: " ++ show s)
+    | otherwise  = error ("not a num: " ++ s)
+  where
+        isNumber []       = False
+        isNumber ('-':xs) = allNum xs
+        isNumber n@(_:_)  = allNum n
+
+        allNum = and . map isDigit
+
+wordsWhen :: (Char -> Bool) -> String -> [String]
+wordsWhen p s = case dropWhile p s of
+    "" -> []
+    s' -> w : wordsWhen p s''
+          where (w, s'') = break p s'
+
+parseTimeConv :: String -> (Elapsed, DateTime, WeekDay, Int)
+parseTimeConv v =
+    case wordsWhen (== ':') v of
+        ts:y:m:d:h:n:s:wd:doy:[] ->
+            ( r ts
+            , DateTime (Date (r y) (toEnum $ r m - 1) (r d)) (TimeOfDay (r h) (r n) (r s) 0)
+            , read wd
+            , r doy)
+        l -> error ("invalid line: " ++ show l)