Golf golf golf

2024-03-21 11:52:28 +01:00 · 2024-03-21 11:52:28 +01:00 · e46b3b37be
parent 0044d607f6
commit e46b3b37be
1 changed files with 1 additions and 4 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -17,12 +17,9 @@ instance Random Fastfood where
            (x, g') -> (toEnum x, g')
    random = randomR (minBound, maxBound)

-getCurrentWeekDay :: IO DayOfWeek
-getCurrentWeekDay = dayOfWeek . utctDay <$> getCurrentTime
-
 main :: IO ()
 main = do
-    day <- getCurrentWeekDay
+    day <- dayOfWeek . utctDay <$> getCurrentTime -- slight golf optimisation
    case day of
        Tuesday -> print Friet
        _ -> print =<< (randomIO :: IO Fastfood)