Now with pattern matching

2024-03-21 11:48:51 +01:00 · 2024-03-21 11:48:51 +01:00 · 0044d607f6
parent 112bdf4847
commit 0044d607f6
1 changed files with 3 additions and 3 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -23,6 +23,6 @@ getCurrentWeekDay = dayOfWeek . utctDay <$> getCurrentTime
 main :: IO ()
 main = do
    day <- getCurrentWeekDay
-    if day == Tuesday
-    then print Friet
-    else print =<< (randomIO :: IO Fastfood)
+    case day of
+        Tuesday -> print Friet
+        _ -> print =<< (randomIO :: IO Fastfood)