From e46b3b37be94233e4879896d5b20ae493ab419ed Mon Sep 17 00:00:00 2001 From: Marty Sluijtman Date: Thu, 21 Mar 2024 11:52:28 +0100 Subject: [PATCH] Golf golf golf --- app/Main.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 75013f1..a426406 100644 --- 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)