From 725468bfd3e27787875e8d2bf21693b3145da77f Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Tue, 15 Oct 2019 12:20:00 +0200
Subject: [PATCH] fix: occurence exception end times not shown correctly

---
 src/Handler/Utils/Occurrences.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Occurrences.hs b/src/Handler/Utils/Occurrences.hs
index af1c617c1..58057700b 100644
--- a/src/Handler/Utils/Occurrences.hs
+++ b/src/Handler/Utils/Occurrences.hs
@@ -21,7 +21,7 @@ occurrencesWidget (normalizeOccurrences -> Occurrences{..}) = do
       occurrencesExceptions' = flip map (Set.toList occurrencesExceptions) $ \case
         ExceptOccur{..} -> do
           exceptStart' <- formatTime SelFormatDateTime (LocalTime exceptDay exceptStart)
-          exceptEnd'   <- formatTime SelFormatTime     exceptStart
+          exceptEnd'   <- formatTime SelFormatTime     exceptEnd
           $(widgetFile "widgets/occurrence/cell/except-occur")
         ExceptNoOccur{..} -> do
           exceptTime' <- formatTime SelFormatDateTime exceptTime