fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix: occurence exception end times not shown correctly

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-15 12:20:00 +02:00
parent 0f53350392
commit 725468bfd3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Occurrences.hs
View File

@ -21,7 +21,7 @@ occurrencesWidget (normalizeOccurrences -> Occurrences{..}) = do
occurrencesExceptions' = flip map (Set.toList occurrencesExceptions) $ \case occurrencesExceptions' = flip map (Set.toList occurrencesExceptions) $ \case
ExceptOccur{..} -> do ExceptOccur{..} -> do
exceptStart' <- formatTime SelFormatDateTime (LocalTime exceptDay exceptStart) exceptStart' <- formatTime SelFormatDateTime (LocalTime exceptDay exceptStart)
exceptEnd' <- formatTime SelFormatTime exceptStart exceptEnd' <- formatTime SelFormatTime exceptEnd
$(widgetFile "widgets/occurrence/cell/except-occur") $(widgetFile "widgets/occurrence/cell/except-occur")
ExceptNoOccur{..} -> do ExceptNoOccur{..} -> do
exceptTime' <- formatTime SelFormatDateTime exceptTime exceptTime' <- formatTime SelFormatDateTime exceptTime