From b34a8467ed8e5be60e6917cfe8696bf4d13a2217 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Sun, 5 May 2019 18:42:29 +0200
Subject: [PATCH] Fix typo

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

diff --git a/src/Handler/Utils/Form/Occurences.hs b/src/Handler/Utils/Form/Occurences.hs
index d010c6a5e..f39ec3323 100644
--- a/src/Handler/Utils/Form/Occurences.hs
+++ b/src/Handler/Utils/Form/Occurences.hs
@@ -110,7 +110,7 @@ occurencesAForm (toPathPiece -> miIdent') mPrev = wFormToAForm $ do
         miCell' :: OccurenceException -> Widget
         miCell' ExceptOccur{..} = do
           exceptStart' <- formatTime SelFormatDateTime (LocalTime exceptDay exceptStart)
-          exceptEnd'   <- formatTime SelFormatTime     exceptStart
+          exceptEnd'   <- formatTime SelFormatTime     exceptEnd
           $(widgetFile "widgets/occurence/form/except-occur")
         miCell' ExceptNoOccur{..} = do
           exceptTime' <- formatTime SelFormatDateTime exceptTime