From 4d4852bb784e0c52db522ed60a055f19bbdcdd4a Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Sat, 24 Dec 2016 15:18:03 -0500
Subject: [PATCH] Ensured that `Time`s start life in their simplest form.

---
 Storage/Storage.hpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Storage/Storage.hpp b/Storage/Storage.hpp
index 4ffb33737..9985cdebb 100644
--- a/Storage/Storage.hpp
+++ b/Storage/Storage.hpp
@@ -25,15 +25,17 @@ struct Time {
 	Time() : length(0), clock_rate(1) {}
 	Time(unsigned int unsigned_int_value) : length(unsigned_int_value), clock_rate(1) {}
 	Time(int int_value) : Time((unsigned int)int_value) {}
-	Time(unsigned int length, unsigned int clock_rate) : length(length), clock_rate(clock_rate) {}
+	Time(unsigned int length, unsigned int clock_rate) : length(length), clock_rate(clock_rate) { simplify(); }
 	Time(int length, int clock_rate) : Time((unsigned int)length, (unsigned int)clock_rate) {}
 	Time(uint64_t length, uint64_t clock_rate)
 	{
 		install_result(length, clock_rate);
+		simplify();
 	}
 	Time(float value)
 	{
 		install_float(value);
+		simplify();
 	}
 
 	/*!