<div>Hi.</div><div>How do you add to or subtract from a LocalTime? </div><div>I&#39;m trying to subtract a second from a LocalTime value but the only API&#39;s I can find act only on the TimeOfDay part.</div><div><br></div>
<div>subSec :: LocalTime -&gt; LocalTime</div><div>subSec (LocalTime d t) = LocalTime d $ timeToTimeOfDay ((timeOfDayToTime t) - (secondsToDiffTime 1))</div><div><br></div><div>I&#39;m obviously on the wrong track as this looks way too complex for what it&#39;s trying to achieve.</div>
<div>Calling with &#39;2012-08-18 00:00:00&#39; gives &#39;2012-08-18 -01:59:59&#39; which isn&#39;t very helpful. How do I get to &#39;2012-08-17 23:59:59&#39;?</div><div><br></div><div>Thanks,</div><div>Adde</div>