From a337a0349d39578f0544695e4739a44d3fb6cdb1 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Fri, 22 Jul 2016 19:03:40 +0300
Subject: [PATCH] calendar.format: add hm>timestamp

---
 basis/calendar/format/format.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 96d4afcfae..e153bb2138 100644
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -286,6 +286,9 @@ ERROR: invalid-timestamp-format ;
 : hms>timestamp ( str -- timestamp )
     [ (hms>timestamp) ] with-string-reader ;
 
+: hm>timestamp ( str -- timestamp )
+    ":00" append hms>timestamp ;
+
 : (ymd>timestamp) ( -- timestamp )
     read-ymd <date-gmt> ;