Can be one line

dtekcth · Jun 5, 2024 · 9ab75d8 · 9ab75d8
1 parent c6b5379
commit 9ab75d8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Model.hs b/src/Model.hs
@@ -92,8 +92,7 @@ update = do
   dateNow     <- liftIO $ fmap (view _zonedTimeToLocalTime) getZonedTime
   let (textday, d) =
         if dateNow ^. _localTimeOfDay . _todHour >= nextDayHour
-          then
-            ("Tomorrow", dateNow & _localDay %~ (.+^ 1))
+          then ("Tomorrow", dateNow & _localDay %~ (.+^ 1))
           else ("Today", dateNow)
   let day'    = d ^. _localDay
   let karenR  = fetchAndCreateRestaurant day'