diff --git a/app/Main.hs b/app/Main.hs
index f138ab3..75013f1 100644
--- 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)